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GEQBUJhERS CLUB 



©t-Ti Club Vai'i G5i3l 

9 e b r u i k s* r s 



Het doei van de veren i g i ng is: het bevorderen van de kenn i su i tw i see I ins 
tussen de gebruikers van o5B2--cuiTiPuter5, zoals KIM, SYM? JUNIDR7 fiIM-G5i 
Systei7i-E5, ftCORN, PET en CBM, fiPPLE, PiTORI, ITT 2B20, PC100, DSI, BBC, 
VIC 20, PEfiRCDM, BASIS 10S, SBC &5/&S, Proton's PC I, II en III^ CHE 1. 
D i "t doe i wordt o. a. gereal is»ef rd door viJfmaal per Jaar het huis»orgaan 
DE E502 KENNER te publ i ceren en vi Jfmaai Per Jaar een c I ubb i J eenkofiist 
te hoLiden, en we i ais vo i gt s 



Versch i J n i ngiadata 
DE G502 KENNER 



Bi j eenkoi'rts'ten 
van de club 



derde zaterdag 
van de iT^aanden ! 
f e b r u a r i 

(Tie i 

augustus 
oktober 
dec edi be r 



derde zaterdag 
van de lYiaanden 
J an ua r i 
iTiaa r t 
(lie i 

septeftibe r 
noveitibe r . 



Regionale b i J eenkoitisten worden door de leden 
ze I f georgan i seerd. 

Naast deze aktiviteiten kunnen de leden gebru i k diaken van ciubfaci 1 i — 
teiter., zoals de KIM-C I ub-KIM, de Klli-C I ub- JUNIOR, en de cassette- 
bib I i ot heek > 

De KIM GEBRUIKERS CLUB NEDERLRND is een volledj^g onaf hanke 1 i J ke ver- 
en i g i ng met statuten en een bestuur. De club i i ngeschreven biJ de 
Kadier van KooPhandel en Fabrieken voor Hoi lands Noorderkwart i er te 
Rikiiiaar, onder nuiYniier &34305. 

De samenste I I ing van het bestuur is than 5 als volsts 

Dage I i J ks bestuur: 



Voor z i t te r J 



E r evoo r z i 1 1 e r s 
Sek r eta r i s s 



Rinus V I eesch-Dubo i 5 
F. N i ght i nga I est r. .^12 
2037 NG HftfiRLEM (023 
Si ep de Vr i es 



- 330933) 



Penn i nsmeester 



Ledenadiii i n i st rat i e ! 



Redak t i e 5 



flccoirtodat i e ! 



c re I eden ! 

fid res van de veren i g i ng 1 
L i diiiaatsc happen ! 



Mw. ii. F. G. Th. Uphoff - Burghoorn 
Voor burg pad 10 

SS43 EM FlRNHEM (;0S5 - 816335) 

Leden ! 



Ruud H. UPhoff 
Voor burg pad 10 
GS43 EM flRNHEM 
Wi I leiii L. van Pe i t 
Jacob Jo r daensst r aat 15 
2323 CK KRIMPEN ft. D. IJSSEL 

(01 307 - 

R i c he ft. van St een 
V i n g e r ho ed 11 

BZ DIEREN (0S330 - 



- S1G335) 



13SSi ) 



21004 ) 



Mw. H. de Vr i e^s — Van der Winden 
Anton Mu I I er 
z i e ad res v. d. sek retar i s 
Fl. 45,= per ka ! ender Jaar, postreke- 
n i ng 3757G43 t.n.v. KIM Gebru i kers 
C i ub Neder i and te ftmste I veen. 
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Pe em KBBCR is een 
Clob Nederiand. 



vo&r het inzenden 

van 6T\ reakties op artike- 
ien voor DE &SB2 KENCR: 

Uillei L. van Pelti 
Jacob Jordaeftsstrut 1S« 
^CK KRIHPB) IM B@l 

Reimie ie (BIER: 

Viste uedeMerkers: 

Ui I l^ii van Pelt 
Gerard van Roekei 

Freeiartce eiedeMerkers: 

Rdri Hankel 
Renee de Hoop 
Fridus JonKun 
Mertan Kuyvenhcvert 
Anton Muiier 
in van Nieumnhove 
Jaap mt Totido 

He^te of gedeeite'tijke 
uverrianie van de inhcud 
van BE ^ )fI«£R zonder 
tiwsiMiM '^'^ het be- 
stuur is verboden. Toepas- 
sin9 van 9epubi iceerde 
prograwta' si hardware etc. 
i5 al leen toesestaan voor 
persooniijK sebruik. 

DE B5B2 KENICR verschiJnt 
J X per jaar en heeft een 
opiase van SBB exeMPiaren. 

Copyright (C) 1383 KIK 
i^rtin^ Club Nederiand. 

De voorpagina is een aqua- 
rel van een Kllii seschil- 
derd door! 

Rinus Vieeich Dubois. 



INHOUDSDPDftVE DE B502 KENNER NR. 



FEBRUARI 1933 



t. Van bet bestuur 2. 
»•• ■d@mt Rinus Vie#sch Dubois 

2. UITNODIGING KiM Dlufo J#&nkOMSt 3. 

3. Agenda 4. 

4. Vraas e-n fianbod 4. 
• •■ Kot-Ti van N i t-u wen hove- vraaa't 

aai'idach't vocir z i J n f I oppy— syst&eM 
■ a. disi'tale casse't'te— recorder 
... PC-18Mi9 M©t hard- en software 

5. Van de redak'tie 5. 

procedure cips^tarlieri Micro— fide 
asseiiib 1 e r 
... dOCir Wi i i eiri vsri Pelt 

6. Patches op KIM-1 BASIC t. b. v. JUNIOR 6. 

( DEEL 4, siot ) 
... door Koen van Nieu wen hove 
■*■ buss in dee I i> 2 en 3 

7. E^SIC rrosraiit CoiYi pressor 10. 
... door Ruud Uphof -f 

e. Gebruik van de VIA ES22 22. 
... door UiileM KuiteMs 

3. JUNIOR en dubbel adresser i ng VIA ES22 24. 
... door Koen van Nieu wen hove 

IQ. BUGS in Zenuwsiag 2&. 

11. BASIC Dataresels senereren 27. 
... door Maarten van HintuM 

12. VIC ModulebordJe 23. 

13. KIM-1. SPiraai 31. 

reakt i espe i voo r hex-d i sp i ay 
... door A.M. den Hartos 

14. Elektuur RaiVi-Eproffikaart 34. 

lEK EproM OP een kaart 
... door Hans Christen 

15. fiIM-B5 BASIC voor de JUNIOR 35. 
... door E. J. M. viSSChediJk 

IB. Service Rapporten Bestand 43. 
praktische toepaBSing in BASIC 
(apart verkriJ3baar op cassette) 
... f^our t^ftarten van Hintum 

17. Marktinfo 4g. 
overzicht aanbiedinsen PROTON 
sEi#£ii^i voor ciubteden 



Wi ddenpas i na. 
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Vfliil HET BE5TUUR 



onze ciub. Ik beri 



ik officieei benoeftid tot voorsitter van 
d i recx geconfroi'iteerd lYiet enkele prob i ehieri d i ei 
noidt'r ik aarrneeitu door Uw inedt-we-r k i Tis ops© lost zu 1 i en worden. 
EiJ deze doe ik een beroep op U ow U kandidaat te stei len voor 
een funkti© in het bestuur. 



Tiaa r frie-rrist'ri iiit-t de bfinodisde . -~ . 

c. q. hardware. Bov©ridi#is steilen we het 



kwa I i te i ten' 



We zijri voorai op zoek 

OP het 9eb i ed van soft— m. nem awoii er. Dwvxriia I atbc- i n-n 

OD PTiJs ais wen over organ i sat ot^liBc he tai ent#n bi&sch i kt. 

Het afgeiuP©rt jaar is wederoivi een 9oed Jaar voor et# club seweest* 
Voorai cje lostryMvier ins was een succes. De H. C, C, -das verd ient 
weer aalh<iltc:iit. W© zuiien ons dit Jaar tracht&ri i»ter voor te fa©'- 
reiden op deze sebeurten i s. 



D© redakt i e is ontzettend 
toegezonden. BiJ deze wi I 
gezorsd riebben? en hopen I 
Doch hierbiJ zou ik we i e 
i i j k dat ' vee i ' copy n i et 
i s. 

Voorai ' cowwentaar' biJ d 
«en pubiiceert* is h©t de 
schr i i ft. 

H©t I IS dN&tc noo i t weg > a I s 
het prograwwa doet en waa 
Het jaar 13QZ zai voorai 
ring van de kwa I iteit van 
onder de uitstekende ieid 
iukken* indien U iiiaar de 
inz©nd©n. 



seiukkis iTiet de veie copy die ziJ kriJgt 
ik a I diegeneri bedanken die voor d© copy 

i Jk bi i Jft IJ copy situren. 

en kritische noot wi i I en Plaatseru nahi©"" 
a(u 1 0111011; i 5c h i nhoudt dat het 



i-t ook ' goed' 



b©do©iing dat 



5 een vereiste. Warineer 
ied»r©ell bssrijpt wat U 



wen d. fii. V. een i nieidift# beschriJft wat 

rvocir het bedoeld i 5. 

ger i cht z i J n op cc>nt i nuer i ng en verbet©~ 
DE B5i32 KENNER. Met de hu i d i se redakt i© 
i ng van Will eiii van Fe 1 1 za I e. e. a> best 
hi©rbQV©n bedoeide 'goed©' copy bliJft 



Tenslott© verzoek ik eenieder voorai naar de b i Jeenkomsten te koitien* 
Het bestuur zai ook in het Jaar 13S3 Haaj u iterate best doen oiii die 
bi jeenkOMSten zo aantrekkel i J K kmmmiijk te wiKeft. 



IK liens U ai ien ©en 9o©d i9S3 toe. 



R. Vieesch 
voor; i tter 



Du|yO>j-K' . 



KICSO - fiDE ftSSEMBLER, DIS- 
aSSEMBLER EN TEXT-EDITOR. 



Binds kort heeft onze ciub 
copyrights verMorven van 
de Hicro-Ade t)s5«ibier> Dis- 
assenbler en Texteditor van 
Peter Jenniuss. Oe club is 
het ioesestaarii tot Heder- 
0Pze93in3 de !1ICIS}-{S)E aan 
haar leden ter beschikKirtS 
te ste 1 1 en. 

De HICRO-ADE kan Horden be- 
steid biJ de re^tiesekre- 
uris> flAdsf mm van mt 
<i nM i t liiK. 



Cassette ^ KIM I2,m 

(hypertape) 

Cassette SK KIR 12*31 

(hypertape) 

Cassette 8K JUNIOR 12,3 

(hypertape) 

Manual SIKH 

Source 4K KIH 31,0 

Patches S.Ucidrin9h 7S>il 
(4K KIH Mordt SK KIK) 

Patches A.Hankei gratis 
(al le«D biJ cusette 
voor MIDR 4 ifaniwi} 



ftanschaf van source ei> mt" 
ches is niet perse direkt 
noodzakeiiik; mem kan voi- 
sta» net cassette * Manual 
'i- natchw S.Uoidrin9h di.ll 
{- overzicht coiwando's zie 
SE ESK XBie nr. 17). 

IKerschrijvins op postreke- 
Aim 841433 t.n.v. U.L vra 
Hn te KriNPen a.d. Ussob 
of d.ii.v. biauife sirofaetaat- 
kaart. 

Gm ander# m» m bt^ 
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CLUB B'JEEWhOMBT 



Ui tnod ! p i ns KIM-Cj.iM^ Bi Jeenkowst. 

DatUM ! zaterdas 13 iriaart i3o3 

Lokati© ! Geiiieenschapshu i 5 "De Zes Gehuchten'S 

r /it,. , PafeenVQCfiri J#-tfi% Beidrop Cbij Eindhovten) 

Ik..,. . . ■ 

M>. W M H M M^. 

- P»r auto VAnAf snetM&g E3 Betgie - Venio 

ft-f»ias GeidrCtp, imdmr £3 door bij ®*e'ratori 
hotel, le stopl i cht t.a. i na SEB itiett'r biJ 
kruising i . a. > die wes 1 KM vol gen tot i ets 
voorbiJ d© kerk. Hiernaast rs het. 

' ' • ^ vanuit Eindhoven 

Rondweg^ afslag Gel drop biJ DPiF. B\ j stopi icht 
voor spoorwegv i aduKt in GeidroP r.a. Weg 1 KM 
vol gen tot lets voorbiJ de kerk. Hiernaast is 
het. 

vanuit Nuenen - Heiworid 

R i cht i ng E i ndhoven door Ge i d rop vo i gen. B i J 
l« iSit^prrCHl na SPCkorwesviadukt i . a. Verde r 
ais faij bovenstaande route. 

■ ift#r trein ~ Stootm*?! Eindhov#r( - H»#irt (iedet* hajf ©n he©! 

UUV vanuit E i ndhovt-ri .) . In Gt-idrop u i tstappt ti. 
Vot-tgangerst unne i naar station door. Deze wt-g 
(Toernoo i veld) oversteken en r.a. siaan. 
L. a. CHertogen I aan) . R.a. (Gi ide'Straat). 
L. a. (D i epenvaart ) . ftan het einde biJ de 
Icruieing is het (rechts). 

Toesangspr i J s: incl. koffie, iunch en frisdrankJe : Fi. 257 = 

Pr«ira*Mrta 8 

9.30 Ontvangst tm^ f<#ff i# .. 
1(3. 00 Open i ng. 

113.15 Fred Harthoorn. In lei ding E5!32 simulator in FORTH. 
11.00 Koff iepauze 

1 1 . 30 F red Hart hooiFiia ■ IN©«fl©rist rat i © B502 s i mu ! ator . 

1 2. 00 Lunch. 

13.00 Ruud UPhoff. Lezing over uiniivers©}© software. 
13.30 Diskussie wet Ryud over uni verse i© ES02 software. 

1 4. A vj r u I U(ti 

ih. 45 Markt 

15.00 Inf orii'iee I gedeelt© 
17. 00 Si u i t i ng. 

BRENQ UW RPPRRAtUUR MEE !?» 
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Pk O E N ly fk 



«0 lo-SC-33 
DO 17-83-53 

M 13-OJ-OO 



S538 - GEBRUIKERaJROEP E-Cfft DELFT 
Htr-Dft&EN IN i^7iERPEIil 



KIK CLUB m 

VQQR ESB2 ismiim mmm 



nn nc nc nT 
-rn nn nc n-r 



7ECHSIEK IN VRIJE TUB IN t£ 
JfifiRBEURS TE UTRECHT 



Zfi 2i-i!i5-83 KIK CLUB D% 

vsp wm msmm m mam 



lA M-S3 

m 17-89-83 

2ft 15-18-83 

ZO iE-l»-K5 

SO ar-ii-ss 

Zft 15-11-83 

Zfl lHl-83 



RB^QHttf Km GLIS BR6 
VEia»IJNIIiSDRTUN OE ESC tEMO 

KIM CLUB 

VOOR E5i32 GEBRUIKERS Ei^j ittfflEREN 
HCC-Dft&EN m UTRECHT 

&Sn - GESfBilKBSGROEP E-OfE laFT 

\^scHijiiiBaxmit SE ^ kemo 

i/TU r» im t> 

r\in ULUO u 
I innn rciv% 

vuun Dju^ 
B5B8 - GEBRUIKERSGRCEP E-CfiFE DELFT 

KESCR 



'S ZDSDfiGS VWffiF 13.18 UUR Vlfi HILVERSUK 2 
HOBBVSCOOF, VftfiK f€T CK'iPUTERPROGRfiBlfi'S, DIE 
PI.B.'v'. EEN CfiSSETTERECDRDER 2IJN OP TE ^B^S. 



ZOSDES FROGRJSSIfi fST UH CIS1PUTER IN TE LEZcn. 
BE 'SaSICODE' V'DCR DE 031 EN BE fiPR.E II 
ZIJN GEPJBLICEERD IN K HCC-NIEUUSBRIEF NR. 34 



Ik iwak vorderiri9eri aex een DOS voor mixi control isr. 
Ik ben bezis het voliedige DOS uit 'K2FDI£: ft flowy 
disk Goeratins syste« for the 8888* cw te zettiHi voor 
de JUNIOR en mi Jn control ler. Na Mat Ik van het lm&- 
DCS sezien heb in Eiektuur iieen Ik dat het daarvoor 
niet onderdoeti echter zonder de riadeien Me Ike aan de 
opiossin? van Eiektuur kieviea: ciffifttei alie 
oude softMare overboord. c(»0tili MlW "^^^ het WB. 
De voiiedlge refenrentle: 

K2FD0S : P floppy disk operating systea for the 



$28, B8 



Kenrieth B. Ueiies 
BYTE BCaSG 
ISBN 8-87' 



ik berp nu zover dat i 
net is Onaeveer 4K ar 
SftVE XXXXXX:Y 



LIRITS XXXX.YYYY 



QUIT 



GO XXXX 



RUN XXXXXX:y 



FORffiT 

TV-1 r-rr . 
UC1.CIC A 

RENflHE (neH fiienatie} 



K over een basis DCS beschik. 
oot en bevat de vol9«)de bevel «>: 
XXXXXXX = f i lename mst & Wms 

faesimteBd nei m titter 
Y = disknuwier mifm i* 
f i !e Moet koiWB 
^ wmm m de te sn^ 

3 na laden van (MroffifNH 
van de schiJf terw 
naar DOS hoofdProfraMMa 

= na lac^ van een prosraii- 
m v«i de sdiiif d| rext 
mim 

= filenaiie * drivenuwier 
laadt en run een prosratt- 
m van ^lUJmmi 
hanst af im Mfl m. 9 

= foriiatterie wmH 

= UitNlS5e» ff faHW 

:(oid fiienane) 



DE 'BSSICOSE' VOOR JUNIOR IS GEPUBLICEERD IN 

EDiTiE 23 m BE mm mm, mmm m 



TE KOBP: 

igmsmBxm floppy dim; 

ofiTflLE CfiSSETTEDRIVE fftSh 
HftftT VAN DE CftSSETTES: flUDID- 
CftSSETTES) */- Sm BMJD, IN- 
CLUSIEF 8ESTURINGSSQFTURRE 
VOOR JUNIOR IN EPRDH DP DE 
»DFESSEN £988 - tEEBI. UORDT 
GESTUURD DOOR E Vlft GS^ 
TEGEN ELX flflMEMENLIJK Hffi. 
Koen van NieuMenhcwft 
Dense iensestraat GIMi 
3aaBLEUVEN EELGIL 



Bovenaerioeiide werkt alienaai al. Hie ieiitlerressierij is 
in het saien verder sitbouMen van de BOS iei ipw kontaKt 
OP te nemen oiet! 

Koen van NieuMenhovei Cmsciensestf i^ li!4t 
B3B8i LEUVEN Bel9ie. 

Verder faen ik benieuwd of er iensen zijn di« naar M il- 
ternatief zm»9 voor m mSHSHS. Laat het iiJ wem. 
ir mm m»im m # rMtttiesekreUr is. 



e LIST 
SCR # 8 

1 - Een PC-ia8 (=flI>1E5) net at sonitor + ftK raa + ZiK asseabler 
I r ^^^^ (iiicrosoft) + haridboeken voor Fi. 975,= 

J - ten 32K ran 8IPSH in Hooie behuizins «et voedins en direkt 



aansiuitbaar on PC-IBB, filHBS of KIM via de 

expansion connector + handboek voor Fi. 788, 

Een l«)ckHell dlcroflex E5 adaptor/boffer module (eurokaart) + 

aynchroBous cowiuni cat ions interface adaptor 
r o ^foJSL'!*""* "ser' 5 Manual voor ... Fl. 335, 
ten 2 X « roH raRTH cowiler direkt in expansion sockets van 
PC-lBB of flIMBS toecasbaar, orialrieel van Rockwell 
7z - net uitsebreid FORTH user's uanuai voor .. Fi. 175 

12- 3,4 mmm de 4 ite^s ineens ziJn de kosten totaal Fl.1990 
13 Bovenstaand kii H.ft.«. van STEEN 
4 ^lif^riJu. (tel.: BS33B- 21884) 



4 
5 

r 

o 
7 

n 
O 

3 
IB 
11 



4 
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St'dt-r't t'Ti i ge- "t i J d ht-sft dt- KIM Gfc'b i" u i k t- rs Club dt- copyrigh'ts vG'TwO'Cv&ti dp 

dt" niCrO—ftdt- VA'n Pe-tt-i" Jti'rin i nSS. Tct Wt-dt- rCiPZfc"5g i ng iiiOgt-Ti Wi J dt' i t'dt'Ti d© 
M i CrO~flde ■ter bt-SCh i kk i ng S'tt- l i &Ti. Da% dOt-Ti we- 5 i rid5d i t"i"i III i ddt' i 5 dt' CSS— 

settebibl iotht-t-k. Dt' asTidacht i gt" it-zt-r zai dau onge'tw i J ft" i d ri i on'tgaari 

ZiJri. li'ifTiidd&IS gt-Ti i t-l; dt' MiCTO— ftdt" t-t-Ti i t-Vt-nd i gt' be i angS'tt" I 1 i Fig. Et'Zi't — 

■t&rs van t't'Ti KIM of t-t"!") JUNIOR kijrrrit'ri bt-schi kkt-n ovt-r t't-ri voor huri 5ys— 
■ts-eiii Passt-Tid P rog r aiTiiiia. Dt- Micro— ftdt- is t-ch'tt'r on'twcir Pt-n vocir gebruik mt''t 
e-lke E5i32 iYi i c rocomPU'tt'r e-n bestaal; zowe- i u i "t drie hoof dP rog raiTima' s ais 
u i "t &GTi aarita i u't i I i uy prog ramma' s. De- inciof dprcigradniia' s z \ j u t-t-n asst-m— 
blt-ri t't-n d i sasst-ir'ib 1 t-r t-n t-e-ri "t t'ks'tt'd i "Cci r . Dt- III i n i I'll u ill sy 5'tt't'ii'i conf igura- 
tie be-staat uit een E5252 coniPU'terj l&K RftM> 1 of 2 cassetuerecorders met 
of zonder start/stop coTitroi» en e«n ASCII input/outPut device. 

D& oorsprorikei i jkt- Micro— ftdt' van m.K vC'Cir de KIM wt-rd door Sebo WC'idringh 
uitgt'brt'id tot t'en SK K I M— Vfc" r s i t" mt-t comiTiandci' s ais ftppt-ndj B i ockiTicrvej 
Ciear Bufft^rj Dt'lt-tt- Lirit-Si Display add rt-ss/nuiTibt' r last i i nt-^ Fix i.wiJ~ 
zig) Lines Ge-t Sciurce Fi ieCs.'j Rppt'nd Sourct- Fi it"!.5.)j Inst'rt Lint-f.s)? 
Bet/Reset Fcirm Feed Fiag^ Chose Linecs.)? List? MciVt' Linei.s.'i Numberj 
Load ftBCC I — f o r iiiat Fi I esi Set/Reset Pase Mc'des List Memor y— bezett i ngi Du— 
Pi icate Fi iet.s)5 Bave Source F i ie!.s.)5 Print Bymbci i /XREF Tabiesv Set/Rt'— 
set Page— per — f i ie/EJect Fiasj Pr i nt /Cl-iarige string? Search Line? Assem- 
ble/ Exec ute^ Set Lines/Screen and L ines/ Page^ D i sassemb i e? List without 
Line Numbers? Save chosen I i nesi Save f-tSCI I — f o riiiat Fi ies? etc. 
Daarna werd dC'O r ftd r i Hankei de SK KIM— vers ie weer aangepast vc'o r JUNIOR. 
De bi J de cassette verkr i Jgbare dcicufiientat ie '^s^ m. u. v. het iiianua i van 
iTieer dan 5(3 pas i na' s? n i et enkei vee I Ciitrvattend? het i s ook wat mcie i i i J K 
het di rekt te overzien. Ve I en beg i nnen echter met cassettt- + lYiariualv het — 
geen heel goed moge i iJk is. In dat geva i koiiien af en toe toch wat tele 
foontJes diet de redakt i e tot stands c>mdat biJ het opstarten van de asseiiV" 
bier in serinse mate van het iiianua! afwiJkende handct Jl^tliPri riodis bi iJk'#ri» 
Hieronder wordt de procedure nos even we© rg eg even. 

- na invoeren X-coiiihiando en CR verschiJnt PftSS 1» waarachter ingetoetst 
Moet worden: BB en CR. 

- de coftiputer reaseert diet een n 1 et zichtbare aktie! de PftSS i? waarna 
weer CR insetcietst diciet (.scmYis duurt het even? a-fhankei iJk van de 1 engt© 
V a n het p r o s r a ivi d i a . 

- dan vo i gt de vraag PRINT ? we Ike gevoisd moet met Y of N of niets ei"i CR. 

- dan XREF? %» i»#ari*»«»r:d»n im% Y a* H ©f tki&is' &ti- Cf?. 

- dm* ID ? mtlke BSfVOimd Umn mora&n #©ft-e©ri ID-code of niets en CR. 

- h*#ma m%*»% de cursor m 6#ft I*i#"'r»«eltl typ weer 08 en CR, en de PftBB 
a%mf% mn flgt h»% mrmrmmk ©# SCh*irM uit. Werd geen listing gevraagd, 
dan ^m-mcM^-m (m de re«#l Punt, waarachter B0 en CR moet ko- 
Mtft* iEtf v©l-gt dan Aim reaktie w©«r'-«f#n »»unt» ■frl^«*f^t be©i nd i at fti©n. 

Hmt ••brtiits vara Hi cr©-4y# &i%d#r d© leden v©rgewakk©l iJkt het ontwikkeien 
¥«tt m^ tmmay m in Irtaehinetaal. Het aantal inzendingen voor publ i kat i© 
©••JWt; f #P PaPieF* op band* of b#id©. E©n verh©ugende ontw i kke I i ng. 
i» lti*il *t#l t van m* blad neewt t#©. Maar go©d© progradidia' s dioeten we i 
van 'mmmm-Mmf imfdiSfn voorxien* besioot het bestuur. en daar stH-dit de re- 
dafctie mm »n* ai t(:|jnn#n Zlth aeef special© situaties blUven voordoen. 
MiJn verzoek aan «f te inzenders is dan ook: n©©fii hier goede nota van. Met 
behulp van Wi cro-^Rde is het ai heiemaai ©en peul©5chii o.ii er coiiidientaar 
bii te schrijven. 



W. L, van P#lt. 



das i c Progradidia Service Rapporten (zie elders in deze edit!©) 
is at-^art ou cassette verkr ijgbaar door Fi. 127 53 over te 
isChriJven op postrekening 341433 tei'i i"iadie van W. L. van Pelt te 
Kr i diPen aan dei'i IJssel? onder veritie I d i ng van: cassette Service 
napporten. findere wijzen van bestel i en ziJn n i et M09eii«fk. 
Levering binneri enkei e dagen na b i j schr i j v i ns. 
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mil 



0010 ;VfiN NIEUWENHOVE KOEN. 

0020 !fiRNPftSSING0^ ftWM BftSIC Vt. 1 WQR JUNIOR 

0030 TFILE #04 

0040 JGEHEUGENBEREIK : *4774 - *4e71 

0050 ;ftDRES VfiN ftUTO ftftNVULLEN OP *50ElW«*51C CL> 







i 




00G0 




.BPI 


*50E 


050E- 


0& 






0070 




.BY 


1^06 










00@0 




,m 


tsic 




m 






0090 




.BY 


«D8 










0100 




.CE 












0110 




. DE 


*CC 










0120 




.DE 


*345 










0130 




.DE 


*2427 










0140 Fpr 


.DE 


$448 










0150 


GETNMRS 


^ . DE 


*EFlC 










01B0 




. Bft 


*ft9 


00fl9- 








0170 


ftCCUl 


.DS 


2 










01S0 


FICCU2 


. • M 


t 










0190 


• 














0200 




.Bft 


«43i 


043B- 


m 






0210 






• *Dii. 










0220 


■ 














0230 




.Bfl 


*DD 


00DD- 








0240 


TEMPX 


. DS 


1 


00DE- 


00 






0250 




.BY 


$00 










0260 




.BY 


$00 


00E0- 








0270 


TEMPY 


.DS 


i 


00Ei- 








0280 


RGBEGL 


.DS 


1 










02§0 








00Efi- 








0300 


RGBEGH 


. DS 


1 


00EB- 








031,0 


RGINCL 


. DS 


1 










0320 


RGINCH 


.DB 


1 


00ED- 








0330 


TLIIMEL 


. DS 


1 


00EE- 








0340 


TUNEH 


. DS 


1 










e^ssi BBS 


.DE 


*45« 










0355 




. Bfi 


*440 


0440- 


19 






0356 




.BY 


*19 








03619 


1 














0370 




. BR 


*eD9 


06D9- 


20 


01 


07 


0380 


RG 


JSR 


GETNMR 


mm- 


m 


30 


07 


0330 




JSR 


PSTRING 


0GDF- 




01 




0400 




LDft 


#*01 


0BE1- 


85 


cc 




0410 




STft 


*RGFL 




m 






042fi 




LDA 


#»00 




60 






0430 




RTS 












0440 
0iSi 


m 
« 






0EEG- 


05 






04S0 


RGi 


LDft 


♦=$22 


06ES- 


C9 


30 




0480 




CMP 


#$30 




m 


m 








BNE 


BLANCO 


®EEC~ 


4C 




07 


0500 




JHP 


$7B5 



6 
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kJOC.1 — 


CO 
t-H 










kiriEi 




KJOr (£) 


PQ 
fc.H 






IciDl 1 




BftJr 












OKI 0 




Nur' 


■r 




n.H 










Nur 








r7 








UUH 


>i'*n7 

*'*Li / 






IB 




0540 




CMP 




0GF7- 


F0 


03 




0550 




BEQ 


BBBi 


Kfor 3~ 






Iu4' 


(71 ere: (71 




TMD 

Jnr 


r rr 




DCS 










rLH 






/i 0 

M-O 










DUO 

rnH 






Ar 






o'=;Qot 




TMD 


O>0P 




^Vl 


ne- 
ar 


017 


KIDKII0 


RPTKJMP 
UC. 1 iMrirl 


JDK 


KtlsfvcU 


OTPIA— 


•"'(71 






OIP 1 01 
KID 1 lu 




J ore 


rSPTMMDS 










RFl'T'OI 
lUDXIU 






li:4l'?(7l 
Trv^KI 




Ob; 






''fiK'^Ot 




9 1 H 




10 ( lO D 


OKI 






fltc/iOi 

I0D4IQ 
KiDdD 


« 

r 

> 


OTC5 








or 

HLr 


(717 


(^P7CT 


ra QMPn 


LU Y 


TPMDM 






017 




cnppot 

kjDOK) 




\-.VK 


tt4l(7l7 


iif 1 1 - 

KI r JL X 






017 

Kl r 


idD^lbr 


iMi*nMr? 




CTDTkIR— 1 V 


lU f i M. 




1 a 

i, M 








C) 1 H 




0171 C_ 








KI / xlcl 




r\PY 

UC.A 




ft"?* 7_ 

Hf 1 ( 


Do 






KI / £}0 




UtY 




0718- 


D0 


F7 




0730 




BNE 


NCHPiR 


071fl- 


R3 


20 




0740 




LDA 


#*20 






IH 




Kr r DIO 




b 1 H 


*-*lH7 X 


PIT 1 P— 


l-iH 






(717 P (71 








P17 1 P— 
Iw/ 4.1 


i V\ 
I V 


PR 




(7177(71 
KI / /Icl 




DDI 


D("^UAD 




o>j 


1 R 




0I7P0I 
lu / OKI 




SS 1 H 




(717 




ij 1 




(717(3(71 




TC D 


HUU 


OITCC— 
10/ ii.tS 




(TIT 

too 




(710(71(71 




Dr*r^ 


COTD T Kir* < 

rb 1 KlNul 






fZ) 




KID 1 K) 




J nr 


LRRnESS 


%)( jCCS— 








(TIC " (71 


CeTDTklfH 

r a 1 K i Nu 1 


J bK 


FBTRING 


El f j£.C 




PT 




(71PT(2i 
Kio£(lu 


■ 

? 


DDI 


DCTI IDKI*~ 

Kc. 1 UKN^ 






DO 


017 


KIODKI 


PQTOTMf^ 


TCSD 


PCTD T Kin 
Ub i rxlNu 










^fl7<7t 
KID / KI 




L.UA 






PP. 








NPyTV 
ntCA 1 T 


T M Y 








PP 

r r 




(7IPQI7I 




UUH 




mJ f "JjZj 






017 


OIQOIOI 
KinKIKI 




3 1 H 


CTDTKirj— 1 Y 

s 1 r( i iMu 1 » A 


073C- 


48 






0310 




PHfl 




073D- 


20 


45 


03 


0920 




JSR 


QUTPyi 


0740- 


S8 






0930 




PLR 


0741- 


D0 


F2 




0340 




BNE 


NEXTY 


0743- 


ft9 


20 




0950 




LDft 


#*20 


0745- 


9D 


ft3 


07 


0360 




STft 


STRIN0-1» X 


074S- 


SE 


PIC 


07 


0970 




STX 


TEMPN 


074B- 


A2 


07 




03S0 




LDX 


#*07 


mm- 


8E 


27 


24 


0990 




STX 


BEGINP 


0750- 


60 






1000 




RTS 
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0751- 
0752- 
0754- 
075B- 

075S- 
075fl- 
075C- 
075E- 

07G0- 
0782- 



IS 

05 EB 
G5 ED 
35 EB 
05 EC 
65 EE 
85 EC 
B0 02 
C9 FA 
G0 



07G3- ft5 EC 
07G5- H4 EB 
0767- S5 flF 
07G9- 34 B0 
07GB- 02 90 
076D- 33 
07GE- 20 CI 3fi 
0771- 20 69 3C 
0774- 60 



0775- 
0773- 
077fl- 
077C- 
077F- 



20 SF 07 
P9 S2 

m m 

20 IS 2ft 
4C flD 07 



0782 
0785 
0738- 20 52 41 
07SB- 4E 47 45 



4F 55 54 
20 4r 46 



1020 ; 
1030 AD0 
1040 

1050 
10G0 
1070 
1080 
1030 
1100 
1110 

1120 RETURNS 
1130 ; 
1140 ; 

1150 CBTRING 

11B0 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 ; 

1290 9 

12B0 ERRMESS 

1270 

1280 

1290 

1300 

1310 ! 

1320 : 

1330 ERRMESSl 



CLC 
LDfl 

fiDC 
STfl 
LDft 
RDC 
STft 
BCS 
CMP 
RTS 



*=RGINCL 
*TLINEL 
+RGINCL 
*RGINCH 
■+TLINEH 
*RGINCH 
RETURN3 



LDfl '*=RGINCH 
LDY *RGINCL 
STfl **flF 
STY +!fcB0 
LDX #*90 
SEC 

JSR *3flCl 
J8R *3CB9 
RTS 



JSR RESREG 

LDfl #L, ERRMESSl 

LDY #H, ERRMESSl 

JBR *2fll8 
JMP *7flD 



.BY 'OUT OF RANGE' 



07SE- 


00 




1S40 
1350 
13S0 


? 
m 




$00 


•0i7gF- 


^9 


0A 


1370 


RESREG 


LDA 


#$0A 


0791- 


OCT 


ED 


1380 




STfl 


+TLINEL 


0793- 


Pig 


00 


1390 




LDfl 


#t^00 


0795- 


85 


EE 


1400 




STA 


*TLINEH 


0797- 


01=: 


CC 


1410 




STfl 


=t^RGFL 


0739- 


85 


EC 


1420 




STfl 


*RGINCH 






EA 


1430 




STA 


*=RGBEGH 


079D- 


flg 


G4 


1440 




LDA 


#*G4 


079F- 


85 


EB 


1450 




STA 


*RGINCL 


07fll- 


ss 


El 


14G0 




STA 


*RGBEGL 


07A3- 


60 




1470 
1480 
14^ 


m 

f 

i 


RTS 




07A4- 






1500 


STRING 


.DS 


8 
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07AC- 








1510 


TEMRN 


.DS 


1 










1S2® 




LDft 


mm 


07PIF- 


SD 


27 


24 


1530 




STA 


BEGINIP 


07B2- 


4C 


48 


23 


1540 




JMP 


*234S 


IfSS- 




jftC 


m 


is^ 




LDY 


TEMPN 


i?B8- 


02 


07 




15G0 




LDX 


#*07 


i?Bfl- 


B9 


A3 


07 


1570 


NYCHAR 


LDA 


STRING-1, Y 


07615- 




1ft 








Sf A 




07BF- 


CA 






1590 




DEX 




07C0- 


SS 






1B00 




DEY 




07C1- 


D0 


F7 




1810 




BNE 


NYCHAR 


07C3- 


09 


20 




1 G20 




LDA 


#*20 


07C5- 


95 


ift 




1630 


BYCHAR 


BTA 


**1A, X 




CH 






1B40 




DEX 




07CS- 


10 


FB 




1650 




BPL 


BYCHAR 


07Cfl- 


85 


IB 




1680 




STA 


*-*lB 




fti 


iSD 




ii70 




LDA 


#$00 


07CE- 


SD 


27 


24 


1GS0 




STA 


BEGINP 


07Di- 


85 


cc 




1690 




STA 


*RGFL 


mm- 


4C 


FS 


m 


1700 




JMP 




07DS- 


EA 






1710 


ENDDftT 


NOP 












1720 




. BA 


*4237 


.i|2S7- 


fl9 


D6 




1730 


VERPL3 


LDA 


#L, ENDDAT 










1740 




. Bft 


*42SD 


lt28D- 




07 




1750 




LDA 


#H, ENDDAT 










1760 




. EN 






PATCHES KIM-1 BASIC DEEL 1 
(2i® DE B502 KENNER nr. 22) 



R«9«i 3800 was 

wordt 
3B80 M«s 

wordt 



PATCHES KIM-1 BASIC DEEL 2 
Czi# DE 6502 KENNER nr. 23) 



21 C0 


4F 


D7 




21C0 


4C 


4F 


D7 


22ES 


20 


0E 


03 


22ES 


4C 


0E 


03 



Reset 1BE0 vervait 
1520 Mas 
1520 Mordt 
170Q was 
1700 wolfii'l 

1730 mm 

1730 iiWDrdt 



(niets insevuld* 
042E EA 
A9 
A3 
A3 
A3 



2E 
2E 
04 
04 




.BY #4F #D7 
.BY *4C *4F *D7 

JSR ERRSTA 

JMP ERRSTA 



red. ) 

ENDDAT NOP 
VERPL3 LDA #*2E 
VERPL3 LDA #L, ENDDAT 
LDA #«04 
LDA #H, ENDDAT 



PATCHES KIM-1 BASIC DEEL 3 

(zie. DE E5B2 KENNER nr. 24) 

Re-gel 1370 was 0571 

1370 Wordt 0571 



SD 
8D 



■£ 02 
>E 03 



$22E 
Stfl *32E 
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0018 ******** 

iiii * * 

tm * Bflsic immwmmm * 

tm * - * 

HSi * Far "Hftl^SBPf* BflSIC * 

WEI * *■ 

* BY: MJD UWF 1381 * 

Nee * * 

3090 * — mmmt wsm — * 

01130 * * 

8110 * SET YOHR TYPE ffF tlNE m * 

0120 * * 

0130 4f ****** ********* 

0140 

0158 TYPE .DE 8 

01Se PET.20ei .D£ 1 

0170 CBH.3832 .DE 2 

2183 mE. II .DE 3 

0190 SVH .DE 4 

02!fl SET TYPE=flPPLE.II 
02^ 

1230 M 

0248 

0250 «================» 

•268 mCHINE TYPE DEPENDENT VARIftBlfS 

0280 

0290 IFE TYPE-PET. 2001 (OLD RON'S) 
8310 PET BftSIC STftTETENT TOKENS 

«m 

0338 DflTfl .DE t83 

8340 DIH .DE $85 

0350 LET .DE $88 

0360 GOTO .DE $89 

0370 IKEJB .DE $8D 

0380 RETUm .DE $8E 

8398 REM .DE ^ 

1400 THEN .DE $07 
•lt» ' 

1428 .BR $7881 

•448 BftSIC POINTERS: 

8458 

0450 STRT .DE $7fl PTR TO SCNB BYTE OF PGM 

•478 ENDP .BE $7E PTR JUST BEYOM) PGM TEXT 

8488 ENDPl .DE $1^ COPY CF SOME 

8498 BASIC .6E UARH RESTART OF BASIC 

8S8e 

0510 **♦ 
8528 

wsm IFE TVPE-CBH.3032 (NEW ROH'S) 
1^ 

8iSB CBH BASIC STATEMENT TOKENS 

Wm CWNGE FDR OT)€R HPU G502 MACHINE 
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8571 

8588 MTfl 

3590 DIM 
8880 LET 
8618 GOTO 
0B28 GOSUB 
8638 RETURN 
8648 !£H 
8658 THit 
8668 
8678 



8638 
1718 

8718 STRT 
8728 ENDP 
8738 EWPi 
87A8 BflSIC 
8758 
8768 
8778 
8788 
8738 



8818 
08-28 

8838 Dfllfl 
88A8 DIM 
8850 LET 
0^0 GOTO 
0870 GOSUB 
0888 RETURN 
08^ REM 
0888 TICN 
8318 
8328 
0930 
0940 
0950 

8968 STRT 
0978 ENDP 
0988 ENDPl 
8998 BASIC 



1810 
1820 
lO 
1848 
1858 
1868 
1878 

1880 DflTfl 
1898 DIM 
1188 LET 
1110 GOTO 
1128 GOSUB 
1138 RETURN 
1148 8EH 



3V3TEEW 5aFT\WflRE 



.DE ^ 
.DE *^ 
.DE $88 * 
.DE $8i 
.DE $SD 
.DE $8E 
.DE *8F 
.DE *fl7 

.Bfi $7888 

BASIC PQMERS: 

.DE $28 
.DE $2fi 

.DE m 

.DE $C389 

IFE TYPE-flPPLE.II 



PTR TO SCND BYTE OF PGM 
PTR JUST BEYOND PGM TEXT 

URRH mm CF SISIC 



(flPPLESOFT=MiCRQSOFT) 



APPLESOFT STATEMENT TOKENS 
CHANGE FOR OTHER HPU 6582 MACHINE 

.DE 131 
.DE 154 
.DE 178 
.DE 171 
.DE 176 
• DE 177 
.DE 173 
.DE 136 



.m $3088 

BASIC POINTEIS: 

.DE $67 
.DE $69 
.DE $AF 
.DE $D43C 

IFE TYPE-SYM 



PTR TO SCND BYTE QF PGM 
PTR JUST ^YOND PGM TEXT 
COPY QF SAME 
UARH RESTART QF BASIC 



fLSO FOR KIM/JUNIGR VERSIONS tKB9) 



SYM ffiSIC STATEMENT TOKENS 
CHANGE FOR OTHER MPU 6582 MACHINE 

.DE $83 
.DE $85 
• DE $87 
.DE $88 
.DE $SC 

.vtm 
Mm 



m €Sm KENNER 
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3085- 



73 

B5 m 

hS 

E8 

m m 



9309- 



3811- 
9814- 



28 
22 
20 



381C- 
38IE- 
9B1F- 
9821- 
9822- 
^24- 
9825- 
9827- 



F8 30 
C3 ^3 
4F 90 
FS 

lb- 20 SC 91 
20 E0 91 

fl2 m 



35 00 

Cfl 

10 Ffi 
58 

(52 Ffl 
% 



mB- E6 00 
9B2D- m 82 



115B THEN 

1160 
U78 

tm 

11^ 

128B 
12ifl 

1-220 STRT 

1^ m? 
tm mwi 

1258 BflSIC 
12&i 

im 

12S8 
1230 

vm 

1318 
1328 
1338 

1340 
1350 

1360 PTRR 
1.370 TPTR 
1388 PTR3 
i:S8 NIHB 
1400 LEN 
1410 THRO 
1420 SVKEY 
1430 
1440 
1450 

1460 START 
1470 

1480 SAVE 
14SB 

i3az 

1518 
1528 
1530 

1540 REP 
1550 

laa 

1570 



1580 RE 

iBia 

1620 
1638 
1S48 
1650 
1660 
1670 



1690 
1708 

1710 GET 
1728 



5V5TEEW SOFTWARE 



.DE $fll 

M mm 

•OS 

BflSIC PQIiffPII 

.DE $7B 
.DE *7D 
.DE $7D 
•DE *C27E 



mm mm mmB m mm mmim 



mmmmvmmm 

PTR JUST BEYOND RJR TEXT 
COPY OF SflfE 

mm msm of basic 



m iTP's 

SRVE raei AREA 



m •EQWPSESS" FOR ALL 6582 MPU 
VERSIONS OF ««IC!«3SIFT" BflSIC 



PflGE ZERO: BQN'T CHANGE 

.DE 0 
.DE 2 
.DE 4 
.DE 6 
.DE 8 
.DE 9 
.DE 10 



mm m 
mi 

m *$e8 

LDft *PTRR, X 
PHA 

im 

CPX <«VKEY+1 
BNE SAVE 

m mil 

JSR CPLIIC 
JSR NXTLN 

KC !SP 
JSR GETTftB 

m mm 

PU 

STA mm,% 

DEX 

m, RE 
at 

UrflFA 

TXS 

m? BASIC 



INIT POINTERS 
CQHPRESS CURRENT LINE 
CHECK NEXT LItC 
IF NOT END OF PGM, REPEAT 
COHPUTE REFERENCE TABLE 

APPEND um 



t 

liSNTER BASIC immm 



GET NEXT BYTE FRQH OLD P6H 

INC *PTRR 
BNE READ 



DE 6§Q2 ICiNNER 
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5V3TEEM SOFTWARE 



m- EE 8! 


1738 


INC *PTRR+1 






1740 READ 


LDY l»08 




It M 


tm 






1135-61 


1758 


m 






1^ 










m BYTE m NEXT mm vm m m 










3136- ES 84 


1808 PUT 


INC *PTRS 






im 


BNE STORE 






1828 


INC mmn 






1838 








1840 


mm BYTE AT CURRENT 


mm^ wm m m 




1850 






383C- M 88 


1850 STORE 


LOY »«00 




3I3E- 31 B4 


1871 

13S8 


STfl (f»Tl®),Y 






1838 


TEST BYTE LftST COPIED FOR ALPHA 




1110 






qa/,a_ rq /.i 


131U !C.3I 


CMP #$41 


IFBELOtiflLPHfl 


3842- 98 87 


1320 


BCC NOT 




3l44~ Us JO 




mmm 




9845- B0 83 


1948 


mm 


THEN RETURN WITH C=0 


9148- 38 


1350 


SEC 


IF Alpha then c=i 


mii- B8 81 


1368 


BCS BflCKl 




9848- IS 


1978 NOT 


ClC 




3B4C- 23 FF 


1380 BflCKl 


cm »$FF 


REGET Z AND N FROH ft 


9Mt- w 




RTS 






2000 
2010 


GOTO NEXT VALID LINE 






2121 
2130 


1.TEST FOR END OF PGH 






ai^ 






iMT- fle 12 


28!i IlKlUt 


LBYft82 




1151- Bl 88 


2S3 


LDfl {PTRR),Y 




9053- m Ifl 


2070 


BNE S<IP 






20ill 

2098 


2. IF EW) OF PSH 






2188 






1IS5- 20 35 98 


2118 END 


JSR PUT 


KfT 00 80 BEYOND P6K 


9858- 28 3b 98 


2128 


JSR PUT 




985B- 28 35 3i 


2130 


JSR PUT 


ADJUST PTR BEYOND PGH 


985E- fl5 84 


2140 


LDfl ♦FTRS 


OH^ PTR AS NEH PTR 


9868- 85 59 


2158 


STfl *ENDP 


END QF P6N 


^2- 85 9F 


2150 


STR *ENDP1 


ALSO INTO OJPY OF SANE 


9854- fl5 K 


2170 


m mmn 




9855- 85 5fl 


2188 


m i&mi 




M58- 85 B8 


2138 


STfl iCNDPl+l 




9856- -28 ^ 92 


2-288 


JSR RECONP 


HECOHPUTE LINKS 


9B5D- 38 


2213 


SEC 


AND RETURN WITH C=l REi 


IKE- 50 


2228 


RTS 






2238 








2248 


3. IF NOT END OF PGH 






2258 


THEM SKIP TO NEXT VflLID BYTE 




2258 






W- ft8 84 


2270 SKIP 


l£Y 1184 


INDEX 0\^R HEADER 


9871- C8 


2288 SCflN 


INY 


imX TO NEXT BYTE 


3872- Bl 88 


2238 


LDft (PTRR),Y 




HHNfllC 


m» 


BE8 OmSS 


IGNDK eiPTV LINE 
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m- C9 28 


2318 


CHP #$28 


s<ip mm 


98^- FB F7 




BEQ 3[M 




M7fl- C9 3fl 


2338 


CHP #*3ft 


9(IF COUMS 


ai7C- F0 F3 


2348 


BEQ SCftN 




sIHtW Bib 


2^ 


□IF #RQ1 


IF NOT "REM" 




2^ 




GO flEffiPT UHE 




2370 








2^ 


kMlP lifMM IWE 






2338 






3882- 35 18 91 


24«3 DISMISS 


JSR DSflHDR 


a<IP HEftKR 


HP- H; S 11 


24tl 




SKIP BYTES 


BEI FB 


24'^ 


m BISS 


'JITIL END fF LINE 


sm- Fe C3 


24;^ 


1^ NXTU« 


GO TRY NEXT LII€ 




2440 








2458 


5.MJEPT LllC 






2468 








2478 flSlf^ 


TYft 




^3D- 4S 


2488 


PHfl 




SaSE- 20 M 98 


2498 


JSR CPHDS 


COPY mm 


9831- ^ 


2S0B 


ft.fl 


GET IM}EX M ft 




2512 


SEC 




9833- E3 K 


2320 


SBC #$05 


MINUS HEfti^R (M) 1 VALID BYTE 










9896- 55 23 


2548 


ADC *PTRR 




399S- 85 i3 


2558 


STfi *PTRR 


f£ST MUST ffi GflRBflGE 






BCC bm;k4 




9890- ES 01 


2573 


INC *PTRR+1 




iS 


25^ BK.K4 


CLC 


C=0 HEf»iS "NOT END OF m* 


80 


25» 








2608 








2E!8 


COPY LI1€ HEflDER 






2^ 






9IMB- 04 


2E30 CPhDR 


LDX #$04 


COPY 4 BYIB 


98fl2- 20 :^ 98 


2548 CPH 


JSR GET 




^K)5- :9S 36 90 


^1 


JSR PUT 




9BCIS- C£^ 


26$8 


SEX 




^9- Iffl F7 


26t8 


BNE cm 






2^ 

2b$0 


RTS 






2708 


UM. STRING 






27i8 






90ftC- fl3 22 


2728 ST.fflWTE 


LDft #"' 




MftE- 20 X ^ 


2738 


JSR STQiE 




9111- A9 00 


2741 


m mt 


BEFQKE END OF iHi 


9BB3- 20 ;X 3J 


2758 


JSR PUT 




9eBG- 60 


2750 


RTS 






2770 








2788 


OJPY STRING 






2790 










m UEJ 


COPY 


giBR- 20 35 98 


2810 


JSR PUT 




31^ F8 ED 


mi 


BEQ ST.iMITE 


UNTIL Etfl) OF LINE 


m-mm 




CHP «$22 




9861- MR 




BNE STftlNB 


OR NEXT am 




28E8 


(mess UK 


1 • 




2870 






98C3- 20 2B 90 


2888 CPLINE 


JSR GET 


GET NEXT BYTE 
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m- C3 20 


28^ 


W »$20 




SiCS- Fa F9 


2308 


m CPLINE 


SKIP BLANKS 




29tf 


CMP ILET 




gaCC- FB F5 


2328 


m cPLiic 


SKIP "LET" 


9BCE- C9 B2 


2338 


C»P IREH 


IF "REH' 


mi- SI 8ft 


2948 






m2r 28 2B 38 


2358 SKPREH 


m GET 


SKIP BYTES 


ms-m FB 


2368 


BUT aisxBt 


UNTIL END OF LINE 


28 a; 98 


29?l 




mmmwm. 


38Dft- FB 13 


23S0 


BEQ ENDSUB 


m wtmm 


□fflnr oa tc oa 
aViA/- ^ Ob as 


Tni LuwL 


JSR PUT 


copy ALL OTHER BYTES 




3888 


BEQ ENDSUB 


GO RETURN IF END OF LINE 


mi- 38 ae 


3018 


KC NOVflR 


IF BYTE HAS ALWW QM. 


98E3r 20 3S 32 


3020 


JSR CPVftR 


COPY VARIABLE 


9iES- 4C C3 38 




M CPLINE 


AND f€PEAT 


9IE9- C3 22 


3848 NQVflR 


CHP «»22 


IF NO QUOTE 


38EI- Da D& 


3058 


BNE CPLINE 


GO DO NEXT BYTE 


ffi cs 


3060 


BE8 STRING 


aSE GO COPY STRING FIRST 


3IEF- 68 


3870 ENDSUB 


RTS 






3088 


Mr fmfm? 






3188 






SiFB- fl5 57 


3118 INIT 


LDft *STHT 


SET BOTH POINTERS 




3128 


SEC 




38F3- E9 82 


3130 


SBC #$02 


TWO BVIES KL* STfMlT OF Pt 


SIFS- 85 84 


3148 


STA *PTRS 


(JUST BEFORE DUHHY El® OF 


W7- S5 88 


3138 


STfl *PTRR 




air 3 Hj qg 








3aFB- E3 ea 


3178 


m i$08 






3188 






38FF- 85 3!. 


3138 


STfl *PTRR+1 




3181- fl3 aa 




LOA »$8B 












3185- 85 0R 


3228 


STfl «SVKEY 






3238 








3248 

3-253 


INIT TABLE POINTER 




3107- A3 FE 


3260 INTAB 


LDA «..T{^-2 




918^ 85 m 


3?7B 


STfl *TPTR 




318B- ft9 32 


3^0 


LDfl «H,TflBLE-2 




3iaD- 85 83 


3238 


STfl *TPTRfl 




918F- 68 


3388 


RTS 






3318 








3320 


DISMISS vmm 






3338 






91 la- fl3 84 


3348 DSHHD8 


m*m . 


ADD L0fGKr OF i&m 


3112- IS 


3350 


CLC 




911S- 65 08 


33K 


ADC *PTRR 


TO READ POINTSi 


9115- 85 88 


3370 


Sift *PTRR 




3117- 30 82 


3380 


BCC m:k2 




3113- E6 ai 


3330 


INC *PTRR+1 




9111- a 


3400 BACK2 


RTS 






3410 








3420 


PUT I^JHBER FROH PTRS IN TfffiLE 




3430 






311C- 28 36 31 


Zm PUTNUH 


JSR SRCHMH 


IF NOT ALREADY P^QtT 


31 IF- m 14 


3450 


BCS BACK5 



9i2i- 28 EB9i 3^ Mfmm immmw miTmmm 
DE 6502 KENNER 15 
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9124- fig 80 


3470 


LDY #$88 




9126- ft5 K 


3480 


LDfl *NUI1B 


PUT MBi ttHER THERE 


3128- 91 02 


3430 


STft {TPTR).Y 




912ft- C8 


3SKI 


INY 




312B- m 87 


3518 


LDfl *NUHB+1 




312)- 91 02 


3520 


STft (1PT8),Y 




91F- C8 


3538 


INY 


WRITE NEW "END OF TABLE" 


9138- CS 


3548 


INY 




3131- fl3 FF 


3550 


LDfl #*FF 




S133- 31 02 


3550 


STfl {TPTR),Y 




313S- sa 


3578 BfCKS 


RTS 






3580 








3530 


SEftlCH hyiBER IN TABLE 




3600 






913E- ft5 82 


3518 SRCHNUfi 


LM *TPTR 


SWE QiRiOtT POINTS 


9138- 48 


3628 


m 




3133- f!5 83 


3630 


LDfl *TPTS*1 




913B- 48 


3640 


FHfl 




913C- 28 87 31 


3558 


m mm 


POINTER TO KGIN 


313=^- 20 53 91 


3568 mimm 




PTR TO lEXT WHBEfi 


3142- ftS 01 


3£72 


LDY #$81 




3144- Bi 32 


36S8 


LDfl i:tftr),y 


fOD NUHKR 


314S- C9 FF 


3590 


OIP i$FF 


IF QitD flF WS£ 


3148- F3 E 


3708 


NFND 


THEW NUMBER NOT PRF'iFNT 


3i4fl- C5 37 


3718 


CMP *NUfiB+l 




914C- D0 Fi 


3728 




flt^i W i€XT W WM. 


S14E- SS 


373.8 


m 




314F- Bl 32 


3748 


LDfl (TPTR),V 




3151- C5 % 


3758 


OIP *NUMB 




9153- M tfl 


3750 


BNE NXTNUHB 




9155- 38 


3778 


SEC 


C=l HEfiNS FOUND 


9156- B8 81 


3788 






9158- IS 


3798 NTFND 


ac 


C=% mm NOT RUNS 


9159- 6S 


3^ BflCK3 


PLfl 




315fl- 85 133 


3S18 


STft *TPTR+1 


RESTORE amm m 


315C- 68 


3828 


PU 




915D- 85 82 


3838 


STfl »TPTR 




915F- £8 


3840 


RTS 


mm mm 




38S0 








38G0 


flDVfllCE TPTR 






3870 






3168- IS 


3888 ftDVflNCE 


CLC 


ADD 2 


3151- 95 02 


3890 


LM *TPTR 


TO TABLE POINTER 


9163- 59 02 


3900 


ADC l$B2 




9165- 85 02 


3910 


STfl *TPr8 




9167- 98 02 


3928 


BCC BfXlE 




3169- E5 03 


3338 


m *mm 




916B- 60 


3340 
3950 


m . 






33E8 


coHPUTETMif irmLire 




3978 






316C- 23 F8 % 


3988 GBim 


JSR INIT 


INIT "TABLE EHPTY" 


31GF- fl3 F 


3330 


LDfl «IFF 


SET 'm OF TflM' 


3171- m 03 


4000 


LDY #$83 




3173- 91 02 


4010 


STft (TPTR),Y 




ms-mm 


4820 


in Ml 


SET "NO JUftP IlfiTRUCTION* 


9177- 85 m ■ 


4038 


STfl *THPO 




9179- m m 


4040 


LDY #$02 





DE 



6502 KEiyNfR 
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3m- m II 

91C6- Bl aa 

31C8- C9 2C 
9B£ 
91CC- 28 2B 38 
91CF- De 85 
91Di- 28 5C 92 
3tD4- Bl Bl 



4S2e 

4538 
4548 

45E8 
4578 

im 

4538 



4Bie Oft 



3V3TEEM SQFTWflRE 



317B- Bl G7 


4058 


LDfl (STRT),Y 


PUT Fi^imFRitfij 


317!h ffi ffi 


4868 


STfl *NU«B 




317F- C8 


4171 


m 




3188- Bl 57 




LDfi (STRD.Y 




3182- 85 87 


4838 


STft *NUHB+i 




1184- 21 iC 91 


4111 




flLWYS naiiK£ 




4118 








4128 


SCAN PGfl FOR KFERENCED LINES 




4138 






9187- 28 2B ^ 


4148 RPT 


JSR GET 


CHEEK NEXT BYTE 


91Sfl- D8 li. 


4158 


M. FURTHER 






4161 








4178 
41^ 


1. IF ENS OF LUC 




318C- fl8 22 


41^ 


LDY i»82 


IF END OF Pl% 


313E- Bl H8 


4288 


LDfl {PTRR),Y 




3138- F8 4D 


4218 


m ENDSB 


SO RETUSN 


3132- fl5 89 


4228 


LDft ♦ThPO 


IF PREVlOtIS i m m NOT ft JUMP 


3134- F3 12 


42343 


m HDR 


GO SKIP Ht9DER»(D ffififtT 


9135- fl8 83 


4248 


LDY »$83 


ELSE GET NyftBER F«3H NEXT IM 


91%- 61 W 


4251 


m (PTRR),Y 




313fl- 85 K 


4250 


mmm 


MO NUHER BUFFER 


SIX- C8 


4272 


INY 




3133- Bl 80 


42% 


Lift (Wr»l},¥ 




319r- So 37 


4238 


STfl *!«J!1B+1 




31h1- 23 IC 91 


43^ 


JSR PyTNUH 


AND PUT NUflBEfi INTO IflBLE 


yifl4- A3 Iffi 


4318 


LDft #$18 


SET "PREVIOUS LINE NO JUMP" 


3lHb- 85 09 


4328 


STfi *THP3 




9108- 28 18 91 


L i inn 

43aj HDR 


JSR DSHHDR 




3WI- 4C 87 31 


4341 


JHP RPT 


AND 00 TEST NEXT LINE 




43% 








43GI 


2.IFN0T END OF LINE 






4378 






9t(£- C3 fffi 


4398 FURTfCH 


CMP «60T0 


IF "GOTO" 


31B8- FB 18 


4398 


BEQ JUMP 


PUT LINE INIQ IftBLE 


MWt- C3 BV 


iM 




IF •Gflsur 


91B4- F0 8E 


4418 


m jiiP 


PUT INTO TfiM.E BUT DON'T W M 


31BS- C9 C4 


44^ 


chp mm 


IF "T{€N« 


f 18&» PI 18 


4431 


msm 


PUT INTO TABLE 


91Bfl- C3 Bl 


4448 


CNP #RETURS 


IF NOT "RETURN" 


91BC- D8 C9 


4458 


BNE RPT 


GO CHECK NEXT BVTE 


9iBE- 85 89 


4461 


m *Two 


ELSE SET FLAG SHY 


91CI- Fl C5 


4478 


m m 






4488 








4431 

4588 


FOUND A m HfiTD OR 


im ) 


91C2- 85 89 


4518 JIUP 


STfl *ThPO 


SET FLAG 



mm A m imm) 
im «ti 

LDfl (PTRR),Y 
CHP i', 

BNE cm 

JSR GET 
BNE aCT 

m am 

BCS RPT 



TEST fCXT BYTE 

IF TE»11NAT0R (ON GOTO) 

SKIP IT, 

AND COLLECT NEXT NUTffiER 

wmmmm 



Ef 6S02 KfNNfR 
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4G38 CLCT 


m COLUECT 


a.SE, COLLECT NUHBER 


31D3- 28 IC SI 


4540 


JSR PUTMi 


PUT INTO TABLE 


91DC- 4C C4 31 


4650 


JMP JftP 


w mm mmm 




iiSBS mm 

4670 
4680 

km 


m 

APPEND LINES 




f lEI- 20 FB 30 


4789 fifreW 


JSR INIT 


INIT. POINTERS 


31E3- fl9 IS3 


4712 


IDA am 


CLEAR FLAG 


f lES- ^ 83 


4728 


sTfl mm 




91E?- 35 03 


473.0 


STfl *LEN 


CLEfiS LENfllh COUNT 


9iE9- 22 2B 90 


4748 


JSR ££T 


COPY FIRST BUWY END OF Lll€ 


91IE- 20 ^ 90 


4758 


JSR POT 




31EF- m 22 


4750 mu 


LDY m2 


OECK Him BYTE fm nm 


tlFl- Bl 130 


4770 






S1F3- D0 m 


47S8 


m mmm 


wma, 


31F5- i£^m 


4790 


JHP m 


£ND OF ^mm\ 


3iF8- CS 




ins 


Pin i Thil-' Dii'«4V!PC 
rut Llntr- WciiDrin 


giF5- 81 Si 




m (?mhi 




31FB- 85 % 




sift *!«JHB 


INTO miE Pm 


91FD- C8 


4S38 


my 




91FE- m m 


im 


188 (PTIW),Y 




92i33- 85 37 


4858 


ST A +NUKB+1 




9202- 20 36 91 


4%a 


JSR SRCKNUn. 


mm¥. mm m im£ 


^j5- m IS 


4370 

4sse 


BCC SCftNlN 






4890 


1. FOUND NUMBER IN 






4388 


SO DON'T APPEND NEX"^ LINE 




4318 






9207- 20 fta 90 


4920 EXflCT 


JSR CPHDR 


COPV HESDER 


3m- ^ K 


4338 


SIX *LEN 


mW l€« LENGHT 


923C- fl3 00 


4'34e 


LDfl #$03 


SET PREVIOUS mxm imtm 


3^- 85 m 


4350 


STfl *SV!<EY 




w- m a 31 


im m 




READ NEXT BYTE 


9213- 20 E3 32 


4378 


JSR SPEC 


C^ECK ^OR DIH OR BBlt 


321B- EB 08 


4388 


INC *LEN 


AND COUNT LENJM 


^!8- 28 3E a 


43^ 


JSR PUT 


COPY BVTF 


92IB- Da F3 


5380 


BNE EXT 


NEXT BYT, IF END OF LOi 


32iD- F0 Da 


5010 
58^ 


BES GPfiXT 


£LSE,K1 DQ NEXT Lit€ 




5830 


2. WJmR m FOUND 


IN TABLE 




5840 
5850 


S3 APPEND 10 PHEVIIUS LINE 


921F- m 24 


5860 mm 


im *m 


INDEX BEYOND 


9221- C8 


5a7«affi.EN 


m 


COUNT BYTES IN Y 


1^ M 88 


58S8 


m (PTRR),Y 


9224- D0 FB 


5020 


BfC OUTLOi 


UNTIL 0© OF LINE 


9226- 93 


5188 


m 




92f^ IS 


5118 


CIC 


ADD RESULT TO COUNT 


9228- 55 as 


5120 


ADC +LEN 


IF RESULT >255 


922fl- B0 DB 


5138 


m EXACT 


m'l APPEND, aiT CREATE m L 


922C- fl3 3fl 


5148 


LDfl #$3ft 


B.SE, INSERT COLON 


322E- 20 3C 90 


5158 


JSR STOE 




3231- 28 la 91 


5168 


JSR DSHHDR 


SKIP HEADER 




5171 


BNE EXT 


GO COPY LINE 




51S8 








5138 


COPY vflRiflBLe mm 






5288 
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qoTC- PR 


s?ifl rpuflB 


mi 


TP^T KJFKT RVTF 










a-'>TQ_ oni /ifl! 
3lj3 ilfl 4le r« 




Jan itai 


TC M sua ' 






are las^ 




nMtf ^ <S3*' 

3Z0C.- zv X % 




fmmm 
.R3K I^NSt 




3£41- DlB lb 




Dec 

oLb lm>na 




QO/iT OD Q£ft 
3^40- 30 


Q^/B iHKh 


Jon i&l 


Iray'i LUri LinHlt rwlm w 


OOAC Ofll TC OH 

jtifKT iO ib a5 




flSS WIT 

jSn rut 








iiy" 


HTCT l-BtM MMiT tc (^Mfffi^ 
rEA>! riKBi Iwwic la OrmlWKiC 


OOi^fl— D1 QUI 




1 no fPTOD\ V 




Ofitt'— ^ W OR 
3ic4L A <w JG 




^ TBT 


THUS IF flLPMfl 


iiiiir Difl b3 




BCS REKV 




Qwi- 

iia jl 3^ 




JSRCHNUH 


OR NUPtRIC 


Q9i&.. tilt OK 




ses bh:k8 




awc- on '70 Qoi 
aob^ iB 315 


•j -'jB ncJW 


JSR C'ET 


9<1P CHflRftCTlR . 




S<joB 


m SKPNflfC 


AND REPEAT 


3£iS- bis 


CTTTfl DIWD 


RT5 






DOOB 










Ci€CK FOR NUtlERIC CHfiRffilTER 




S4« 






925C- C9 3S 


3411 CWH 


CMP nm 


IF mm. 






BCS Him 




32oB- C9 -iB 


D4,jB 






3£tli: 3H loo 




BCC STN« 


THEN C=l ims mi 'iMM 


3zb4- it) 


3>mB 




ELSE C=8 HtflNS NUHttlC 






as: Bfio^ 






34nS fttnFi 


SBC 








}?TS 








COLUEET OECIttflL SUHiES 










3&r- H3 IN 


□DzB LuLLu<! 


LDR 


am AUSJCR flREfl 


QA^n nc fir 




STfi *N:mffi 




y^Dl' b J W / 




STfl *Nur»n 






5uj2 LuJP 


JSR GET 


tSEJ NEXT Ctf>RSCTER 


327i:- 2i2 X 3i: 


5568 


JSR CHMJM 


!F NOT NUHEfilC 


9275- Ba 12 


D57a 


BCS mm 


T>0 REftDY 


3277- 48 


55bB 


PHft 


sfiVE DEcm am. 


n'"\7n •"^1 0'"\ o~« 

BiZo- i(D 3i 




JSR 'MULTV 


flULTYPLY RESULT B? ' l« 


CO 


QaBa 


PU 


RESTORE BICli 




JDllD 


mmm 




3i(t ib 




CLC 




Jill — DJ sSj 


□Cub 




m TO lOlT 


3iol QJ BO 


iJ04B 






3iO0 30 tH 


DbOB 


BCC LOOP 




SiOtT to B/ 


□QbB 


INC mmi 




32o/- Die db 


3b /Is 


BCS LOOP 


fEPEST FOR NEXT DIGIT 


3i83- HO IflB 


Dbblo dhu(h 


LDft *?TRR 


IF mm ,mmm mmm 


32oo- uS io2 


DbyiJ 


m£ BSW 




9aD- Co 81 


37BB 


DEC *PTRR+1 




328F- C6 «a 


57ie m 


DEC mm 




9231- &e 


5720 


RTS 


m mum 




5738 








5748 


HimYliflifiY 


m 




5758 






9292- 2a Bl 92 


57B8 flLTY 


JSR TWO 


10 = 2 * 5 


9235- 28 93 92 


5778 


JSR FIVE 




92^8- &e 


W» 


RTS 
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5798 












5938 


mTYrt.Y WM BY 5 










5810 






3233- 


fi5 


87 


5823 FI\/t 






323B- 


43 




5a38 






323C- 


fi5 


1% 


5340 


IM 4MM 




323£- 


48 




5^0 






923^- 


20 


Bi 92 




JSR TWO 




32fl2- 


22 


Bl 32 


5878 


JSR TM3 


Tlfi llM^ MAKES * 4 


9285- 


G8 




5888 






9286- 


18 




53S8 


CLC 




32fi7- 


£5 


'1£ 


5388 


ADC *NiJ1B 


ADD TD mmi 


9233- 


35 


3b 


5913 


STfl *!tB1B 




9298- 


bS 




5328 


Hfl 






65 


87 


5339 


fiDC *NUMB+i 




92ft£- 


85 


87 


5348 


STfl *I«J«B+1 




mt- 






5931 


RTS 










59ESI 












5978 


MULTVPLY NUMB BY 2 




92B1- 


% 


35 


5333 THO 


fiSL *!01B 


LEFT SHIP 


32B3- 


2d 


87 


bl^8 


ROL *NUHB+1 


ON DOUBLE BYTE 


^m- 






seie 

6t28 


RTS 










6838 


RECOHPU^ LIM<S 










6848 






9285- 


95 


67 


&a50 REOJHP 


LDft *STRT 


COPY &WS MIMfctJ 


32B3~ 


35 


88 


B8&e 


STfl *iNu!lB 






m 




iP0 






92k;- 


85 


97 


m2i 


STfl KhOffifi 




92K- 






&SS8 


CLC 




1^- 


m 


II 


MBt N XTLUK 


LDY iiM 


GET MlBt m«TE FftCB! LlIK 


92C1- 


Bl 


I3G 


5110 


LDfl (NUHBhY 


If ZERG. 


92C3- 


Fi3 


ID 


6128 


B(CK7 


THEN END iF PGM 


9^ 




W( 








92C7- 


CS 




5148 COUNTER 


INY 




92C8- 


Bi 


8& 


6158 


LDft {NUnB),Y 




92Cfl- 


De 


Ft 


&i€0 


Bl€ OKMTER 


tJfflL a® LM 


92CC- 


C8 




6170 


INY 




92CD- 


33 




6138 


TYfi 




932- 


&5 


liE 


£198 




ADD TO PiEI/IOUS liH 


92Di3- 






5202 


TAX 




92D1- 


m 


iiXi 


6218 


LDY «$88 






11 


06 


6231 


STfl fNUffi>tY 




92D5- 


fl5 


87 


5233 


LDfl *NU!1B+1 




mi- 


59 


198 


6248 


RDC #$88 






m 




6251 


W 




9203- 


91 


8E 


6268 


STfl (M]Fffi),Y 


STIM LM 


92DC- 


SB 




5278 


STX #Uffi 




mir- 




m 


I2se 


ST A 




S2E8- 


m 


DD 


5-298 


BNENXTUK 




92E2- 


m 




6388 M^7 


RTS 










6318 












6328 


flPme Sin flW DATA 










6338 






9^ 


m 


m 


iSMSPEC 


m. mm 


IF fCYJWRD TOKEN 




C5 


m 


6358 


CMP *SVKEY 


AND SAKE AS PfEVIffifi 


m- 


F8 




6368 


BEQ DTSMT 


THEN GO CHECK M« « ftHfl 
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3£9- 85 M 










32EB- Da 12 


5^ 




AND GO mm 




32£Ih C3 83 


6398 DTSHT 


CMP »DflTfl 


IF DftTfl 




Fi M 


VM 








92F1- C9 86 


641B 


CMP mn 


mm 




32F3- Da m 


6423 


m£ NOKEY 






92F5- fl5 134 


643eDC^ 


LDfl *PTRS 






92F7- Da 82 


644e 


BNE NGTZER 






32F3- C6 25 


64^ 


DEC *PTI6+1 






92rB- C6 04 




DEC mm 






92FD- fl3 2C 


mm 


m V, 






32FF- 60 


6488 NQKEY 


RTS 


AND RElUR^i 




9319- 


6498 imJE 


.m 512 

.UN 







DE BflSIC-CKIPRESSOR 



-SPflTIES WORDEN VERHYIffiffl 
-LET «ORDT VERWYDERD 

-ZET lum. mmm mm m m M mmm 

-ZET ZOVEEL HOGELYK "DIH'S" IN EEN STATBSNT 
-VERHYDERD flLLE LEGE EGELS ZOflLS 

l&NS • « » • • s 

-GQQIT flLLE "REM" STflTEHENTS MEG 

-ZET ZOVEEL HOGELIJK STflTEHENTS 9CHTER EEN REGaNUWlCS 

-KORT flLLE VfiRIflBELE-NftMEN IN TOT HflXimftL 2 KflRf^TESS 

m GECOKPRIICERD PRCGRSWIfl mC U NIET PROBEREN TE VtfifiNDEREN 
BSm DE HYZiGINGEN ftflN IN HET ORGINEEL EN OJRPRUIEES OPNlEUtt ! 

mmmmt 

-41^ tMiiteii fiif in liBiiiiif m m mm mmim' 
mm mm m mttmmm. m het bebin m m fmmm 

m PRINT "STRING' (GOB) 
111 PRINT "HKST (FflUT) 

■mmt OF GOSUB'S NflSR EEN REH-STflTEHENT OF LEGE RECEL 

ZYN VERBODEN. ftLS EEN GECOMPRIMbE®! m& iS 

KflN l^tJEN DAT OE QQRZAflK ZYN ! 

BUG mam ? mm mim < 

OVERIGENS: PROBEER EENS WiM PROGRflttlA'S ft iCHRWEN VOORflE 
I.P.V. JUNIOR, PET, APPLE, KIM ETC. U HEEFT HIER EEN VOQRBELD 
HOE DAT KflNtVOORflL flLS U DE ASSENBLER "flSSH/TED" VflN C.HOSER 
HEEFT GEKQCHT. 
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GtbfUlk van de VIA 6522, 

door Willeaa litems ' 

De adressen van de VIA zijn te vlnden in het stukje programraa wat ik als bijlage 
heb ontwikkeld. 

Ter verduideli jking; de VIA is op veel raeer adressen te bereiken, eyenals de PIA, 
maar ik vend het makkelijker om op 1800 te beginnen. 

SYSTEEM RESET . 

Tijdens een reset, worden alle registers van de VIA 6tp 00000000 ;|#1itt, alle I/O 
lijnen tot ingang verklaard en alle interrupt vlaggen gecleared. 

DATA-TRANSPORT LIJNEN 

Voor het gebruik van de datalijnen gelden de zelfde regels als voor de PIA: 

Een 0 in het DD-Register ; bijbehorende lijn ingang. 
Een 1 in het DD-Register; bijbehorende lijn uitgang. 

Een bi jzonderheid: Poort B is gebufferd zodat de inhoud ervan correct gelezen kan 
worden, ook wanneer deze poort als uitgang wordt gebruikt. 

Poort A it niet gtbttff«rd' zodat z»n inhoud alleen correct gelezen kan worden 
indien de belasting niet te groot is of wanneer de lijn tot ingang is verklaard. 

HET AUXILIARY COHTiOL RESISfEi (ftguur 2) 

Indien datalijnen tot ingang zijn verklaard, bestaat de keuze van het 'latchen' 
van de poorten A of 1, m.b.v. het ACS. Mt is handig Indien men op het moment 
dat data aanwezig is niet direct wil of kan lezen, omdat de data aanwezig blijft. 
Dit wordt dus gedaan met de bitten bO en b1 van het ACR. 

HET PERIPHERAL CONTROL REGISTER (figuur 3) 

De raeeste I/O poort functies worden bestuurd vanuit hat P€R. Zo wordaffl de 
controle lijnen CA1 en CA2 bestuurd met de bitten 0 t/m 3 van het PCR en de 
controle lijnen CB1 en CB2 met de bitten 4 t/m 7 van het PCR. De betekenis van de 
waarden van de bitten 0 t/m 3 is gelijk aan die van de bitten 4 t/m 7. LET OP ; 
CA1 en CB1 zijn aXtijd ingang, terwijl eA2 en CB2 zowel ingang als uitgang kunnen 
zijn. 

HET INTERRUPT FLAG REGISTER (ftguur t) 

In dit regtster worden bitten geset of gecleared overeenkorastig de gebruikte 
onderdelen van de VIA. 

Waarom ik in het kort maar een paar aspecten van de VIA heb genoemd, zal blijken 

uit het stukje programmatuur dat ik ervoor heb gemaakt. 

Het gaat hierom: we willen een 8 bits parallel data-transport plegen, waarbij we 
tevens een strobe-puls aanbieden als "Data Available" Slgftaal. Wanneer de data 

ingelezen is, laten we zien wat de hexa-decimale waarde is en daarnaast printen we 
de afzonderli jke bits van die waarde. Een aangepast programma kan bijvoorbeeld 
gebrulkis worden om input te plegen vanaf een keyboard. 
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7 6 5 U 3 2 1 0 < 



I I I 
I I I 



I I I I 
lilt 



Bit Number 

Auxiliary Control Register 



0 Disable input latch Port A 

1 J^able input latch Port A 

0: Disable ltt{mt lAteeh Pdrt B 

1 isable Input latch Port B 



000 Disable ^Ift register 

001 Shift in at Counter 2 rate 
010 Shift in at 62 clock rate 
Olt^ift lb it eternal @lo<)k rate 

100 Free running output at Counter 2 rate 

101 Shift out at Counter 2 rate 
1 to Sbift oiit »t #2, riitt 

111 Shift ottfe''mk. «dNFfial.©'|©^:rifei 



1 0««re»e^ C$»unt$r:;g m eit* pulses, iwfiut 



shot mde 
via PB6 



^ MssbXe Qutfiut via PB7 
1 ^able output via PB7 

0 One shot mode 

1 frm- funning mode 



\ 



> Counter 1 controls 



i ©es verder op votperi<|# 



JUNIOR en 



Koeik van Nieuwerihove zcnd de rediKtie 
een opiossins voor dit proueeH. Het 
verat e«v mmp di« «r art mm fll- 
ziet: 

1. snudt de bUR dOOf difi Biit i3 Via 

N35 (op de interfacekaart) net 

verbiridt; 

2. verbindt m 13 ^ 165 set Pin 3 

van IC3; 

3. sniJdt baan doer die Pin 12 van IBS 
verbiridt iet Pin li van ICi7; 

4i sniJdt baan door die Pin 11 van IC17. 

verbiridt net Pin 2i van de VIA; 
S. verbiridt Pin 12 van MSI net ffiB M 

vw de VIA; 



Pin 1 van rl3j 



Pin 2 van Iii35' 




ABg 



Kb 



verbindt 
Kt Pin 11 
% -^oz van IC17 



het wordt diiS: 



<3 Z3 CSz 



VIA bSXZ 



7./< CSl 




I VIA 



II XCI7 

82SZ3 
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7 6 5^3210 < Bit Number 

t I j I {: till < Peripheral Control Register 



^ 4^ A 



I i ! 



0 0 0 Input mode - Set CA2 Flag ( IFR bit 0 ) on a 

high to low CA2 input signal. 
Clear IFR bit 0 on reading or 
writing the Port A Output register. 

0 0 1 Independent - Set IFR bit 0 on a high to low input. 

Interrupt Reading or writing the Port A Output 
Input mode register will not clear IFR bit 0. 



0 10 Input mode - Set IFR bit 0 on a low to high input. 

Clear IFR bit 0 on reading or 
writing the Port A Output register. 

0 1 1 Independent - Set IFR bit 0 on a low to high input. 

Interrupt Reading or writing the Port A Output 
iBfcte register ulll not clear IFR bit 0. 



1 0 0 Handshake - Set CA2 output low on a read or write 
i% mode of the Port A Output register. 

Reset CA2 output high with an active 
pulse <S{t €11 

1 0 1 Pulse - CA2 goes low for one cycle after a 

J^^€ H^de read or write of the Port A Output 
, , register. ... ^ 

1 1 0 Manual - CA2 output as a low level. 

Outpvit mode 

1 1 1 Manual - CA2 output as a hi^ level. 

Output mode 
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7 6 5 4 3 2 10 <- 



Bit Nuraber 



I I I I I I I I I 
I I I I I I I I I 



Peripheral Control Register 



I 1^ 



0 on high to 
low CA1 

1 IRQ on low to 
high CA1 



\ On interrupt request 
/ set IFR bit 1 



000 CA2 input \ IRQ on high \ 

001 CA2 iMepifiiiUM inpil* / to low Ck2 \ m IRQ set 

010 CA2 input \ IRQ on low / IFR bit 0 

011 CA2 independent input / to high CA2 / 

100 CA2 output low on CPU read or write 

101 CA2 output low pulse on CPU read or write 

110 CA2 output low level 

111 CA2 output high level 



0 IRQ on high to 
low C»1 

1 IRQ on low to 
high CB1 



\ On Interrupt request 
/ set IF8 bit 4 



/ 



000 CB2 input 



\ IRQ on high \ 



001 CB2 independent input / to low CB2 



010 CB2 input 

011 CB2 independent input 



\ IRQ on low 
/ to high CB2 



\ On IRQ set 
/ IFR bit 3 



100 CB2 output low on CPU raid Qr write 



output low pulSS 

110 CB2 output low level 

111 CB2 output high level 



tW tm^ ©r wrlite 



^ 35,«_j__ ^^_i.f!£E verder op voigende patina ♦ 



7z7e~Di~i5i2~KENNiR~18, p. 32) 



%Bm 023E 85 FB 
iim 0214 S4 D7 
1730 02B9 Ce D7 



it'iOet Z i J Ti 

Moet z i J n : 
MOet Z i J ii \ 



1&BI3 (323E 85 F3 
1710 a2B4 Eft EA 
1730 02B9 CB D3 



STft INH 
2 X NDP 
DEC PLCDU 



DE 6502 KENNER 



LUODSJ8ftftO|^A5;Op'ftAMrtA 




7 6 5 4 3 2 1 0 



Bit Number 



0 0 0 



0 0 1 



Interrupt 
Input node 



Independent 
Interrupt 
IniHit mode 



Set CB2 Flag { IFR bit 3 ) a 
high to low CB2 input signal. 
Clear IFR bit 3 on reading or 
Writing the Port B Output register. 

Set IFR bit 3 on a high to low input. 

register tfill not ^mt: Ifi Mt .% 



0 1 0 Input iDOd«' - Set IFR bit 3 on a low to high input. 

Clear IFR bit 3 on reading or 
writing the Port B Output register, 

0 1 1 Independent - Set IFR bit 3 on a low to high input, 

Input flio49 S«ipdi4ig or uriting . the Bort B Output 
register will not al#ar IF6 bit 3* 

1 0 0 HandsMIe - Set 0B2 output low on a writ« 0IS. 

Output mode Reset CB2 output high with an Qotive 
pulse on CB1 input signal. 

10 1 Pulse - CB2 goes low for one cycle after a 

Output mode write ORB operation. 

110 Manual - CB2 output as a low level. 
Output mode 

111 Manual - CB2 output as a hij^ level. 
Output mode 

■gasggajjggtt'gffiBgggggS ass 1311 MBiiPgSttM^ 

IB INPUTft*sft*=ft*+", " 

20 FORI=PEEK ( 123) +25B*PEEKCi24>T0PEEKCi25)4.25e*PEEK( 12S> 
30 I FPEEK < I ) =4BTHENT=T+ 1 s POKII . «®C (HlBtlSt, T, I) > 
40 I FTsLEN ( A» ) THEN! 00 
50 NEXTI 

60 DfiTfl 

70 DRTft 

88 l!)^)T^) •■■■«• m m m m m m mm mm m m m mm m m m m mm ««|«Al9ai 

90 DflTft 

100 TsesQOTOiS 

OK 

DEZE KLEINE ROUTINE IS BEDOELD DM IN BftBIC DDOR HET 
PROGRftMMft ZELF DfiTft-REGELS TE LftTEN MfiKEN. 
WERKGEBIED VfiN DE BPlSIC LDOPT VftN $2000 TOT *C00B. 
ftUTEUR: M. R. VAN HINTUiM TE DDETINCHEM. 
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JWFOMlflliJi 



1 



<-_- Bit Muuiber 



I IRQ I T1 i T2 i CB1 I CB2 I SR | CA1 | CA2 | < Interrupt Flag 

— — — — ^ — < — — — Register 



i Bit 


! • Set % 


•r 
1 


Cleared By 


1 


1 0 


1 Active change of CA2 


i Read 


or write OR A 




1 1 


I Active change of CA1 


1 Read 


or write ORA 




1 i 


1 ®@ttpl«%ation 8 


! Read 


or write SR 




1 3 


i Active change of CB2 


i Read 


or write ORB 




1 'I 


j Active change of CB1 


1 Read 


or write ORB 




1 5 


1 Hme-out of Timer 2 


1 Read 


T2L or write 


T2H 1 


1 6 


1 Time-out of Timer 1 


! Read 


TIL or write 


T1LH 1 


1 7 


1 Active & enabled cond. 


1 Active clear condition i 



is 1 if any of the Interrupts is both active & enabled. { 



< Bit Number 



I WQ \ f 1 I m } CB1 I CB2 I SB j «ait i €ft2 | < Interrupt Enable 

— « ^ — . ^ Register 

I I } I { I I I Designated interrupt 

I enable 
1 1 - Interrupt eaabMI 

I 0 - 



Set Clear Control 
Set or clear bit 0 - 6 
1 - Mrittni 1 aets bit 
to i 

0 - Writing T sets bit 
to 0 

Writing 0 to any o 
of bits 0-6 has 
no f f f eet , 
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;lDft£SSEN VAN DE 6522 PLUS HUN MNEMONICS 



DRB = 1800 ; OUTPUT REGISTER FOR I/O PORT B 
DRAH = 1801 ; OUTPUT REGISTER FOR I/O PORT A 

; WITH HANDSHAKE 
DDRB = 1802 ;I/0 PORT B DATA DIRECTION REGISTER 
DDRA = 1803 ;I/0 PORT A DATA DIRECTION REGISTER 

f iL s 1804 imm rtmn i wamm tm-^mm byte 

; WRITE TO TIMER 1 LATCH LOW-ORDER BYTE 
T1CH = 1805 ;READ TIMER 1 COUNTER HIGH-ORDER BYTE 

t VtlfG TO TIMER 1 LATCH fflGIMJRBER WtfB 

; AND INITIATE COUNT 
TILL = 1806 ;ACCESS TIMER 1 LATCH LOW-ORDER BYTE 
T1LH = 1807 {ACCESS TIMER 1 U^Of BtTt 



T2L = 1808 



tm a 



it 

MR 



1ft 
lER 
DBA 



s 180A 

s 180B 

m 180C 

s 180D 



180F 



READ LOW-ORDER BYTE OF TIMER 2 AND RESET 
COUNTER IHfEtltUPT 

WRITE TO tOW-ORDER BYTE OF TIMER 2 BUT 
DO NOT RESET INTERRUPT 
ACCESS HIGH-ORDER BIfTE 0f TllSfi t; RESET 

COUNTER INTERRUPT ON WRITE 
SERIAL I/O SHIFT REGISTER 
AUXILIIHIT C50lffl^i HmtSTtR 
PERIPHERAL CONTROL REGISTER 
INTERRUPT FLAG REGISTER 
IjlTERRUPT ENABLE REGISTER 
OUTPUT REGISTER FOR I/O PORT A; 
NO HANDSHAKE 



lees verder op voigende OAairia 



VIP HODIAIBORDJE 

Voor het piutsen van staridaard WCM spelletJeSi SuHrexMn- 
deri RAM uitbreidiri9«rii eriz. zi Jn ai leriei dure uitbrei- 
din%ri in de handel. De Pit Benelux Excharise biedt m een 
uitbreidiri95bordJe iuit een vijftal connectcreni wurin de 
Hodules Horden seplaatst. Cbdat alle Koduien nauHei iiks 
veretosen vraseni is !£EN extra voedins riodig! Verder wrdt 
het bcrdJe Kant en Kiaar seieverd en kan dit zo achterin 
de VIC sestoken worden. Uanneer Ij beschikt over iKiduieri> 
die niet tesel i jkertiJd aktie-f uosen ziJn> dan is het vriJ 
eenvoudi9 ok zeif op de betrefferide laoduien een voediRSS- 
spanninsschakelaar aan te brenseni door het SV kcperbaan- 
Xi6 OP de print te cnderbreken (deze oplossins votdoet 
cok uitstekerid in de dure flrfon uitbreidirisDi zodat U ze 
nooit Meer behoeft te verwi Jdereri. Het PBE aodulebordie 
kost Fl. 2SI3i= (incl. BTU en verzendkosten) en is te he- 
litttfR «lf firo^lKSU t.»,v. Coprtmiai DivMter. 
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i WFQRWflTiE 



1 




;GEBRUIKTE LIJNEN: PAO T/M PA? ALS DATA-INPUT 




2 
3 




■ 
f 






CA1 


ALS STROBE-INPUT 




H 




PREG 






UUr 1 




; STATUS REGISTER 




5 




CRLF 






1 1 to 


; PRINT CARRIAGE RETURN/ LIMEfEEB 




6 




LF 








; PRINT ENKELE 


LINEFEED 




7 




PRSP 






11F3 




; PRINT EEN SPACE 




8 




SHOWPR 




1228 




; PRINT PREG 






9 




PRBYT 




128F 




; PRINT BYTE UIT ACCUMULATOR 




10 . 




RECCHA 




12AE 




;WACHT VOOR ASCII INPUT 




11 




PRCHA 




1334 




; PRINT ASCII KA«AKfER UIT ACCU 




12 

1 Cm 




;VIA 


ADRESSEN 












13 




DRAH 




100 1 




jOUTPUT REGISTER VOOR I/O POORT k 




1U 














; MET HANDSHAKE 




15 




DDRA 




I8O3 




;I/0 POORT A DATA DIRECTION REGISTER 




16 




ACR 






1806 




;AUXILIARY CONTROL REGISTER 




17 




PGR 




- 


180C 




; PERIPHERAL CONTROL REGISTER 




18 
19 




IFR 




- 


180D 




; INTERRUPT FLAG REGISTER 




20 
21 


0200 








.LOC 


0200 






22 


0200 


26 


Si 


1 1 

1 1 


KEYBIN: 


JSR 


CRLF ; 


RETURN/LINEFEED 




23 


0203 


20 


ED 


11 




JSR 


LF ; 


GENERATE LINEFEED 




24 


0206 


A9 


GO 






LDA 


//O ; 


CA1 INPUT "DATA AVAILABLE" 


PULS 


25 


0208 


8D 


OC 


18 




STA 


PCR 


;MOET VAN HOOG NAAR LAAG GAAi 


27 


020B 


8D 


03 


18 




STA 


DDRA ; 


POORT A LIJNEN INPUT 




28 


020E 


A9 


01 






LDA 


#1 






29 


0210 


SB 


OB 


18 




StA 


km 


ENABLE LATCHING VAN POORT 


A 


30 


0213 


A9 


3F 




iw BIT : 


LDA 


//3F 


LAAT "? " ZIEN ALS 




31 


0215 


20 


34 


13 




JSR 


PRCHA 


PROGRAMMA KLAAR 




■32 


0213 


20 


F3 


11 




JSR 


PRSP 


'IS VOOR INPUT 




33 


02 IB 


A9 


02 






LDA 


it 2 


;CHECK CA1 STATUS 




34 


021D 


2C 


OD 


18 


AVAIL: 


BIT 


IFR 


.STROBE OP CA1? 




35 


0220 


F® 


tB 






BEQ 


AVAIL 


;20 NIET, WACHT TOT ER EEN 


IS 


36 


0222 


AD 


01 


18 




LDA 


DRAH 


HAAL DATA-BYTE, CLEAR IFR- 


•BIT 1 


37 


0225 


49 


FF 






EOR 


//OFF 


KEER ALLE BITS OM (OPTIONAL) 


3t 


022? 


as 


Fl 






STA 


FBE6 


;ACCO IN PRE6 




39 


0229 


20 


8F 


12 




JSR 


PRBYT 


; PRINT HEX-WAARDE 




40 


022c 


20 


F3 


11 




JSR 


PRSP 


;DAN EEN SPATIE 






02'^' 


20 




12 




JSR 




;DAN DE AFZONDERLIJKE BITS 




42 


0232 


20 


E8 


11 




JSR 


CRLF 


;NIEUWE REGEL 




43 

41, 


0235 


4C 


13 


02 




JMP 


INBYT 


;WACHT OP VOLGENDE STROBE 




41 










.END 


KEYBIN 







De overige figuren zijn ter informatie. In een volgende 6502-KENNER zal ik 
trachten iets over ander registers te vertellen en met voorbeelden te 
verduidelijken. Suggesties zijn natuurlijk van harte weliJQm bij: 



W.J. KUITEMS 

Dr. NEHER LAB PTT 

LBfl^MiNMH 

070-75519? 



W.J. KUITEMS 
ANTHEUNISSTR . 
tm iAAG 
©70-992661 
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SPIRAA 



:^:>iS!it^i}^t^4^^t^t:^tstts^:■4:)^:*:■^^■4:■At^t>it■4^^:l^^4tmifW^^^ 

* PROGRftMMft SPIRftftL * 

* ftUTEUR: ft. U. DEN HftRTDG * 

* Jimii^St 2 * 

* S26t^ QWD BEYERLftND * 

Pf^Of^MMft BESCHRIJVZl^l 

SPiraai im Sfem rmmm, imatpe \ voor de KIM. 
Hdt idee achtef h#t mimi is afkomstis van 
een KIM-achtiae leercomputer van Hewlett 
Packard Met de 8i9S5. 

De twee speiers reaseren met d# 0« en de i 
3 toets van het KIM keyboard. 

Als het spel wordt restart op $0200 wordt een 

SPiraal opgebouwd op het KIM display 

van rechtsboven naar I inksonder. 

Zodra de sPiraai af is bliJft hiJ enise 

tiJd staan. In deze tiJd Moet de speier aan 

w i ens Kant de sp i raa l see i nd i gd is 

reaaeren <0=l inker speier. Sssrechter speler). 

Het is de bedoei ins dat zo laat diogeiiJk 

wordt sereaseerd want dan za I de- sPiraai^ 

die afwisselend van RB naar LD en van LO naar 

Wm. mo^'init getekendj hlerna itiet grotere snelheid 

wordten setekend als de tegenstander aan de 

beurt is. Die heeft het dan jtioeiiiJker oiiidat 

d© tiJd waarin sereaseerd kan worden ook kieiner 

wordt. ftis te laat wordt gereageerd oftidat het 

te snei saat of OMdat lets te ver is gegaan 

in het P#«t#n van de tesenstander krijgt de 

teaenstancier er een Punt biJ. ftis gereageerd 

wordt voor dat de sPiraai af is krijst de 

tesenstander er ook een Punt biJ. 

TQti^t dus als ieiiiand op het verkeerde 
MOMent heeft sereaseerd. wordt een puntente i i i ng 
zichtbaar waarin de letters "dd" als 
scheiding funseren. 

De puntenteiiing is decifiiaai en kent geen 
max! MUM. Na 99 wordt verder gegaan diet 00. 
mm #lti« r&iv«ie wordt de sPiraai weer (ttet de 
t anszaaMste sne i he i d sesch reven. 



SPIRftft ORG 
DEFINITIES! 



$0200 



DD 


00 


SCHEID 




$00DD 


F9 


00 


PNTR 


* 


«00F9 


FB 


00 


PNTL 




PNTR 


E4 


00 


SNELH 




»00E4 


El 


00 


SPELER 




«00E1 


E0 


00 


TEMP 


* 


«eeEf3 


40 


IF 


flNYKEY 




«1F40 


6ft 


IF 


GETKEY 




*lFBft 


EB 


00 


DISP 


* 


$00E8 


IF 


IF 


SCftNDS 




*1F1F 


07 


17 


TIMER 




*1707 


E7 


00 


COUNT 


*s 


$00£7 



+02 



0200 ft9 DD 



HOOFDPRODRftfflifls 

START LDftIM SCHEID INITlftLISftTIE 



DE 6502 KENNER 
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0202 
0204 
020B 
020S 
020H 


85 


Fft 






BTRZ 


PNTR 


ft3 


FF 






LDftIM 


*FF 


85 


E4 






BTftZ 


BNELH 


85 


El 






STftZ 


SPELER 


fl9 
85 
85 


00 






LDftIM 


1^00 


020C 


F9 






STftZ 


PNTR 


B20E 
0210 


FB 
05 






STftZ 


PNTL 
$05 


ft2 




NEXT 


LDXIM 


0212 
0214 


ft9 


00 






LDftIM 


$00 


95 


E8 




ft 


STftZX 


DISP 


021B 
0217 


eft 








DEX 

" 


10 


FB 






ft 


0219 
02 IB 
021D 
021F 
0220 


05 


El 








SPELER 


49 


FF 




* 




*FF 




El 








SPELER 










SEC 


D0 


02 

15 






6NE 


U 


0222 


E9 






SBCIM 


*15 


0224 


E9 
85 
R5 


EB 




U 


SBCIM 


$EB 


022B 


E7 






STftZ 


COUNT 


0228 


E4 






LDftZ 


SNELH 


022ft 
022D 


8D 
20 


07 17 
02 02 




ST ft 


TIMER 


B 


JSR 


CORLD 


0230 
0233 


ftD 


07 


17 




LDft 


TXHEB 


10 
ftS 


F8 






BPL 


B 


0235 


El 






LDftZ 


SPELER 


0237 
0239 
0236 
023D 
023F 


D0 


04 






BNE 


C 


EB 


E7 
02 






II^Z 


COUNT 


90 






BCC 


D 


CB 


E7 




'C 


DECZ 


COUNT 


ft4 


E7 




D 


LDYZ 


COUNT 


0241 


BE 
B5 


CF 


02 




LDXftY 


TBLDIS 


0244 
024& 
0249 


E3 






LDftZX 


DISP 


19 


02 




ORftOY 


TBLMSK 


95 


E& 






STftZX 


DISP 


024B 


05 


£7 








COUNT 


024D 
024E 


18 










B5 


El 






ODCZ 


SPELER 


0250 
0252 
0254 
025B 


C9 


FF 






CMPIM 


*FF 


F0 


0E 






BEQ 


REOKTI 
$13 


C9 


13 






CMPIM 


F0 


02 






BEQ 


REOKTI 


025S 


D0 


CE 






BNE 


BTREEP 


025ft 
025D 

02B2 
02B4 
B2BB 
0268 
02Eft 
02BC 
02&E 
0271 
0273 


20 


BD 


02 


tf^ mm» jiL ■ ji.aiM m 

REftKTI 


JSR 


REOKT 


F0 


IB 






BEQ 


ftC 


02 


02 


LIOr*LJT 

WhI»H I 


TCSC3 


uRRLu 


09 
85 


FF 






LDftIM 


*FF 


E0 






STftZ 


TEMP 


CB 


E0 




ftft 


DECZ 


TEMP 


D0 


FC 






BNE 


00 


CB 


E4 






DECZ 


SNELH 


F0 
20 


07 






BEQ 


OC 


BD 


02 




JSR 


REOKT •• 


D0 


ii 






BNE 


WOCHT 


F0 

ft2 
05 


3i 






BEQ 


NEXT 


0275 


00 




ftC 


LDXIM 


$00 


0277 
0279 


El 






LDftZ 


SPELER 


F0 


02 






BEQ 


R 


027B 


E8 








I NX 


027C 


ES 
B5 








INX 




027D 
027F 


F9 




R 


LDOZX 


PNTR 


FB 








BED 




02S0 


18 








CLC 




02B1 


89 


01 






ftDCIM 


$01 



+01 

LONGZOOMSTE BNELHEID 
RECHTER SPELER EERST 
RESET PUNTEN TELLING 



MAftK DIBPLftY a^HOON 



ftNDERE SPELER OAN BEORT 



ZET COUNT OP BEGINWftftRDE 
SPELER NOG IN OCCU 



CDUNT=FF OF 14 

INIT TIMER MET SNELH. 

WOCHT EN BCHRIJF DISP 
VOLDENDE SEGMENT 

MOOK BEGMENTBIT HOOD 

IS DE ¥SLE SPlRftftL GESCHREVEN ? 



WORD! ER GEDRUKT ? 

MU fiL ? DON VOLS GESPEELD 

LEEB BPIRPlfiL UIT 

GEEF EEN KLEINE DELOY 



DEZE REGEL IB DE GEIN VON HET SPEL 



VERHOOG 



TEGENSTftMDER 



DE 6502 KENNER 
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flMUSEWEWT 



1230 
1300 


! 0283 


35 








O 1 M i. A 




! 0235 


DS 








LDfilM 
STftZ 
LDOIM 
BTR 


1310 
1320 


: 0236 


A9 


0E 






LJ 


: 0233 


E0 






TFMP 


1330 


: 023A 


03 
SD 

00 


FF 




T 


*FF 


1 340 


: 028C 


07 


17 

>L r 




TIMER 


1 350 


: 02SF 
: 0232 


IF 


IF 


S 


JSR 




13G0 


FID 


07 


17 

A r 




LDR 




1370 


: 0235 
: 0237 
: 0233 


10 


FB 






EPL 




13S0 


CE 


E0 

EF 






DECZ 


TFMP 

1 CI IP 
"T 
1 


1330 


DB 






BNE 


1400 


: 023B 


ftS 


FF 






LDftIM 


*FF 


1410 
1420 
1430 


: 023D 


35 


E4 






BTAZ 


SNELH 


: 029F 


4C 


10 


02 




JMP 


NEXT 














1440 










SUBROUTINES: 




1450 
















14E0 


: 02ft4 


20 


0E 




CftRLO 


LDYIM 




1470 


8S 

u w 


IE 




JSR 


*> X CLOO 

*7F 
1 1 7Zi 1 


1430 


: 02A7 


fi3 


7F 






LDfilM 
STft 


1 430 


: 02fl3 


SD 


41 


17 




1500 
1510 


: 02flC 


02 
34 


03 






LDXIM 




: 02ftE 
: 02B0 
: 02B3 


FC 




LDEP 


ETVZ 


$FC 


1520 


B3 


E7 


00 




LDfiPlY 


*00E7 


1530 


20 




IF 




JSR 


«ri r <f n 


1540 
1550 


: 02BE 
! 02B7 


88 








DEY 


DB 


F5 






BNE 


1 nFP 


1 5B0 
1570 
1530 
1590 


MM 






1 7 
J. / 




STY 






SO 

M.1U 








RTB 














02BD 


05 


El 




REftKT 


LDftZ 




1B00 


! 02BF 


13 








CLC 


1E10 


: 02C0 
! 02C2 


F0 


02 






BED 


L 


1B20 


E3 


04 






RDCIM 


KJ M- 


1B30 


02C4 




E0 




L 


STfiZ 
JSR 


TFMP 
1 CI 1 r 


1B40 
1B50 


■ 02CG 


20 


40 


IF 




QMVKF V 
rtlM T r\C T 


02C3 




FB 

C.KJ 






JSR 


GETKEY 


A WU1U ■ 


02CC 


WliJ 






CMPZ 


TETMD 


1E70 
1ES0! 




£0 








RTS 














1B90! 














1700! 
















1710! 

1720: 


02CF 
02D0 


00 










3>lu<u 


01 












1730! 


02D1 


02 












1740! 
1750: 


02D2 


0"^ 








si 


■pitiw* 


02D3 


04 










*B5 


17E0: 


02D4 
02D5 

%J jC JL/ w 


05 

KJ w 

05 










1770: 








ss 




1730: 


02DE 










*B5 


1730: 


02D7 
02DS 
02D3 


04 








m _ 


*B4 

$B3 


1800: 


03 










1310: 


02 










*02 


1320: 


02Dft 


01 








s 


mi 


1830: 


B2DB 


00 










«00 


1340: 


02DC 


00 










$00 


1350: 


02DD 


00 
01 










$00 


13B0: 
1370: 


02DE 










$01 


02DF 


02 








s 


$02 


1380: 


02E0 


03 










$03 


1330: 


02E1 


04 
05 










$04 


1900: 


02E2 










$85 


1910: 














1920: 


02E3 


01 






TBLMSK 




$01 



LEES PUNTENSTOND UlT 



NIEUWE ROIMDE 
SNELHEZD 



BEG I NT MET LftNGZAAMSTS 



DISPLftYVELD BITLIJK 
IL. LETTERLIJK) IN KIM DISPLAY 

DEZE ROUTINE IB HET WERK VfiN S rr 
C. T. ft. TOTTE UIT ZWIJNDRECHJ. 



HftfiL flFH. VAN BPELER DE 0 OF 3 TOETS 
DP EN SET DE ZERDFLftG INDIEN INGEDRUKT 



DE 6502 KENNER 
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flWUSEWEWT 



J. dou 




Pi 1 


— *B 1 


1940 
1950 


I 02E5 


01 


« $01 


i 02EG 
! 02E7 


01 


a $01 


19G0 
1370 


01 


* $01 


■ 02ES 


01 

20 


$01 

= $20 


19S0 


: 02E3 


1330 
2000 


: 02Efl 


40 


« $40 


: 02EB 


40 


* $40 


2010 


! 02EC 


40 


= $40 


2020 


02ED 


40 


= $40 


2030 


■ 02EE 


40 


a $40 


2040 
2050 


02EF 


40 


a $40 


02F0 


04 


$04 

= $0S 


20E0' 


02F1 


08 


2070 


02F2 


0S 


» $08 


20S0 


02F3 


0S 


- * $0S 


2030 
2100_ 


02F4 


08 


» $08 


02F5 


08 


= $BS 




02F& 


08 


s $08 



ELEKTUUR RftM-EPROM KftfiRT. 



HflBDWflBE 



HflNB CHRISTEN, PDSTBUS 50E&2, 3007 JD RDTTERDftM 010-^14^1 

a> STEL DE KflfiRT IN OP HET GEBRUIK VfiN DE 2732. 
(2) SELEKTEER 8K $2000 - $4^0 

IC ~ ' 



C3) 
(4) 



C5) 



^ => V 
3 => W 



PIN 
IC 5 PIN 
VERWIJDER IC 7. 
LEG DE PUNTEN K, 
10K PifiN + 5V. 
IC 25 T/M 28 ZIJN NU DESELECTED. 
NEEM EEN DyBBELPOLIGE WlSSELSCHAKELAftR EN MftftK 



L, M EN N ELK MET EEN WEERSTftNB VftN 



+ 5V 



-»L (rczt") 



-> N (rczs) 



CB) PLAftTS NU IN BIJV. 25 EN 2E BPlSIC OF lETB fiN©t«i. 

EN BIJV. 27 EN 28 MICRO-ADE 0. I.D. 
(7) MEN HEEFT NU OP EEN PiDRESGEBIED VftN 8K TWEE PRO- 
SSBMMAIS. yftN .m J>XREKT VPORHfiNBEfel, iWJTCH-SELEC- 



TftiLE C64K H TEl^SLtrTTE «fET tPilh©fiTyr 



DE 4502 K#HHiR 
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;dor de junior 



DOOR : E.J.M. VISSCHEDIJK, DRftKENSTEYN 233, 
7588 TR fiLMELO. Tel.: 05490 » 7i41B. 

DAT DE INTERESSE VAN DE JUNIDR-BEZITTERS TslIET ENKEL 
DP MftCHINETfiftL GERICHT IS, IB GEEN NIEUWTJE. HET KLINKT 
ECHTER WEL NIEUW TE HDREN DPT ER VDOR DE JUNIOR NU RL 
DRIE BftSIC'B BESTaSN, BUITEN TINY BfiSIC. 
IN DE &502 KENNER WERDEN DE flANPPlBSINGEN VERMELD VftM 
SYM-BABIC VDDR JUNIOR. MOMENTEEL LOPEN ER PlL PUBL I KA- 
TIES OM DE KIM-BfiSIC GE3CHIKT TE MftKEN VOOR DE JUNIOR, 
EN.TEVENS.y.I.T.IE.BREIDEN.aEI flUERL|I JgNglD|^^gES. 



THftNS IB OOK DE ftIM B5-BftSIC VOOf 

DEZE BASIC STAAT HOOD IN HET GEHEUGEN, EN WEL. VANAF 
$BBi3l3 - $DI3i30. HAAR WERKRUIMTE BEG I NT OP ADRES *213l3ia; 
BASIC GAAT ERVAN UIT DAT DAAR DE VRIJE RAM BEG I NT. 
DE VERANDERINGEN WELKE AAN DEZE BASIC ZIJN AANGEBRACHT, 
ZIJN NIET HELEMAAL LOB TE DENKEN VAN DE HIERNA TEVENB 
VOLGENDE ROUTINES M. g. T. TAPE MANAGEMENT, ELEKTERMINAL 
PAGE CLEAR EN RESET PM BTART (d© laatste staat wel h«l©- 

fiiaoi i i Oil vSn Baii> i C . 

TAPE MANAGEMENT BIJ DEZE BASIC WERKT ALS VOLGT : 

- PROGRAMMA'B OP TAPE ZETTEN. 

TYPE IN SAVE 'RETURN'. DAN VOLGT DE VRAAG FILENAME: 
ER KAN NU EEN NAAM VAN MAXIMAAL 126 KARAKTERS WORDEIM 
MEEGEGEVEN. NA DE NAAM VOLGT ' RETURN' . DE CASSETTE- 
RECORDER MOET DAN KLAAR 3TAAN, EN BEGINT TE LOPEN. 
ALS HET PROGRAMMA DP DE BAND STAAT VOLGT DE MELDING 
RERDY EN EEN PIEPJE Cm its dit Piepj© hardwarewat i g «ari«- 
ws-sig lis met CoTitrol G). 

- PROGRAMMA'B LEZEN, 

TYPE in: LOAD 'RETURN'. DE VRAAG FILENAME: KOMT NU 
WEER EN ER WORDT EEN NAAM OPGEGEVEN VAN EEN . 
DAT EERDER DP TAPE WERD GEZET. BIJ lEDER GEVONDE 

PROGRAMMA VOLGT: FOUND: 

ALS HET GDEDE PROGRAMMA GEVONDEN IS VOLGT LOADING: 

ALS HET GEHELE PROGRAMMA IB INGELEZEN VOLSte RE^f 
EN WEDERDM EEN PIEPJE *• 
BOVENSTAANDE PROGRAMMATDuR Vmr IN TM BTftfiN ! 

IN DEZE JUNIOR BASIC ZIJN TWEE SLEUTELWOORDEN VERVALLEN, 
T.W. NULL EN GET. DAT NULL IB VERVALLEN, DAAR ZAL NIEMAND 
OM HUILEN. HIERVOOR IN DE PLAATS IS GEKOMEN HET SLEUTEL- 
WOORD HOME. DIT HEEFT TOT GEVOLG CZDWEL IN DIREKTE ALS 
IN INDIREKTE MODE) DAT HET GEHELE BEELDSCHERM BCHOON- 
GEMAAKT WORDT. DIT ALLEEN, ALS HET MACHINETAALPROGRAMMA 
'ELEKTERMINAL PAGE CLEAR' IN DE TM-EPRDM IS OPGENOMEN. 
DP WELKE ADRE3SEN DIT STAAT EN HOE DIT PROGRAMMA' TJE ER 
UITZIET, LATER. 

HET SLEUTELWOORD GET IS DDK VERVALLEN, HELAAB. GET SCANT 
NAMELIJK HET TDETBENBORD ALS ER EEN BASICPROGRAMMA GE- 
RUND WORDT. ECHTER, DE JUNIOR ZIET EEN INGEDRUKTE TDETS 
IN DE RUN-MODE ALB EEN BREAK (ALTHANS, TIJDENB HET 
PRINTEN). DEZE BASIC ZIET IN DE RUN-MODE EN NIET 
TIJDENB HET PRINTEN EEN INGEDRUKTE TDETS OOK ALS EEN 
BREAK. HET IB DUB DUIDELIJK DAT GET NIET TE GEBRUIKEN 
IB. HIERVOOR IB MON IN DE PLAATS GEKDMEN. ALS DIT WORDT 
GEKOZEN, WORDT TERUGGESPRONGEN NAAR JUNIOR PM. 
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PRQERflWWEERTflLEW 



mDREc 

CF5i3 
CF52 



CFBl 
CFAC 



BI30:: 
CF4S 



CF 4D 
B&40 



REDEW VaW 



[RftNDERING: 




4C 50 CF 



fi3 
3D 
8D 
BD 
20 
4C6. 

4C 



CEFB tm 
CFB0 

CEED 



CF01 
CF70 



CF4B 
CFBR 
CFEC 
CFBE 

B35S 




as 



^4+ 

32 



02 
02 
02 
0C 



CF 



R3 BE 
SD 7D 

4C 7F B2 

PiD 80 lA 

§S §@ 1^ 

1^; 1^ ' Wt 

20 E8 11 



4C 01 CF 



1-13 iOD 
»0 20 

ft2 0E 
ft0 20 

4C Bfi CF 
fi3 3F 
85 12 
85 IS 



LB 
HB 
LB 
h'B 




1 O I 



DE 

STfiND TERMINAL 

ino - i iM ucL III — crnu 
oUricmi oUriuuNriMi-lK 

Z.lJl^j. MIMUtrxO IIUC:. I 

DOOR lETB ANDERS 
JMP KOUDE STftRT. 



uHOON BEELDSCHERM, 
VICE WORDEN IN 



10ET HET BEELD- 
IMfi fifiNWEZIG 
CF5E T/M CF5D 
VERVftNGEN WORDEN. 



3 X NOP 

AftN KET EINDE VAN KOUDE START WORDT 
NAAR WARME START GESPRONDEN. DIT IS 
EEN NIEUWE W. START. 
JMP NIEUWE WARME START. 
BREAK ADRES WORDT MET BBSS GELADEN. 
DAPIR WORDT HEENGESPRONGEN Nft BREAK. 
OOK ADRESPLAATSEN B&40> B&4&. B&4B 
ZIJN m VERANDEim 



ZDDAT ER EEN CRLF KOMT OOK IN TER- 
~ KiL MODE. DP B222 STfiAT HET OUTPUT - 
1^1 iTftftT HET INPUT-DEVICE 



B X NOP 



OMZEILEN V. D. VRAAG "MEMORY SIZE" 
NU ALTIJD EEN RAM-TEST NA 



ER VOLGi 

EEN KOUDE STftRT. 
EERSTE 
VRIJE 

RAM ) 
ADRES 

OMZEILEN VAN DE VRAAG "WIDTH" 
BREEDTE BEELDSCHERM VAST OP &3 
DM TE VOORKOMEN DAT EN BASIC EN DE 
ELEKTll^NAL BE IDE EEN LF SEVEN. 

MOET NAAR EEN RUB-OUT SUBR. WIJZEN. 
DEZE SUBR. GEEFT EEN BACKSPACE DP DE 
TERMINAL. ' i 

WEES NAAR ONDERSTAANDE SUBR.. DIE 
QOiSPRONKELIJK ELDERS STOND. 



BBBB 
B&C3 
BSCF 


4C 
4C 
4C 


AE 
34 
34 


JL 

13 
13 


INPUT 

OUTPUT 

OUTPUT 


BBBA 
B&AB 
B384 


AD 
AD 
C3 


22 
21 
7F 


02 
02 


OUTPUT 
INPUT 
DM OOK 



DEVICE (DEFAULT = 00) 
DEVICE (DEFAULT = 00) 
DE KARAKTERS 7D, 7E DOOR TE L#fEM 
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ADREBi 

B3BE~' 
BSftg 



WORDT: 

flD 24 02 
FiD 24 02 
SD 24 02 

a& 24 m 



REDEN VAN VERPiNDERING! 



ENftBLE 
ON. 00 



WftS BIJ ftIM-E5 
PRINTER. S0 IS 
BIJ ' PRINT! "TEST"' IS 
RUNNEN $0224 EVEN 80. 

VftN ! 



OF DISABLE 
IS OFF. 
TIJDENS HET 
DIT ftLS tSEVOLB 



B3BE 
B53E 
B&50 
BB55 

^^^^ 

BEB3 

BEE3 
B6E9 



Efi EA EA 
EA EA EA 
EA EA EA 
20 AE 12 
EA EA EA 
EA EA EA 
EA EA EA 
m EA Eft 



DIT WAREN ALLEMAAL ADRESSEN DIE NAAR 
AIM-E5 ROUTINES WEZEN OF NAAR ANDERE 
TYPISCHE AIM-B5 POINTERS 0. I. D. DEZE 
WORDEN ALLE NIET OF MOGEN NIET GE- 
BRUIKT WDRDEN. VftNDfiftR EA EN EEN 
KEER B0. 



B02C 
B030 
B032 
B040 



B0Di 



31 0C 
FD 0C 
Al 0C 
5E 10 



48 4F 40 C5 
4D 4F CE 



PAGE-CLEAR -1 BUB CHOME:) 
TAPE mNAGEMENT LOAD -1 (LOAD) 
Xfifl^^G^'^f^Gf^'^ENT iWE -l(SAVE) 
JUNIOR PM -1 (MON > 

ALLES -i VANW©^ UTS NA PHA, PHA 

MET MSBtel DE LAATSTE 

'MON' 'met MSB»1 van DE LAATSTE 
LETTER, 
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0010; 
0020 : 
0030: 
0040: 
0050: 
00&0: 

0070! 

0080: 
0030: 
0100: 
0110: 
0120: 
0130; 
0140: 
0150: 
01S0: 
0170: 
01S0; 
0130: 
0200 ; 
0210: 
0220 : 
0230; 
0240 ; 
0250 ; 
02G0: 
0270: 
02S0; 
0230: 
0300: 



0C32 



0C94 20 34 
0C37 02 S0 
A0 

0C3C DB FD 
0C3E CA 
0C3F DB FS 
0CA1 B0 



PAGE CLEAR 



E. J. M. VIBSCHEDIJK, DRAKENSTEYIf 1?S0S TR ALMELO. 



ALS MEN DE A 
ZAL DEZE HET 
ECHTER ALLEEiM 
DE TIJD WORDT 



iC 1 1 -CODE *0 

ufc.ncL_cL bhc. 

DP ALS DE 
GEGUND 



_ NAAR D{ 
DSCHERM b 

El r- 1 .-* -T r- r> iw4 T 



ELEKTERMI 
CHDONMAKEN 

iMHL- nicKvu 



ZENDT i0C NAAR DE VIDEOK 
PAUZE IN ACH 



NAL ZENDT, 
;^ DIT GAA1 

„DR 132 MS 

ANDE SUBROUTINE 



EEN 
IJD 



ZDDh i 

NOOIT DE 
PRDGRAMMA WORD 
ALB DE JUNIOR-BASIC (ODm 
MOET 'HET ZELFS HIER STAA 
NAARTDE SPRINGT. 



DNDERBTA 

AART, EN NEEMT DAN 
EVEN! 
ZAL 



rv T Tr- 
or r\ 



I UCC 

DNDE 
ST UK 
. AIME 
OMDAT 



•v'DLGEND 



T K 1 1 TMI 

J. iM I n u 
•Zi) GEBRUIK 



DEZE 



KARAKTER 
DIT 

E~f r--r 
^. t:. I . 

WURDTj 



BASIC HIER 



PAGECL ORG 

PRCHA * 

LDA 
JSR 
LDX 
LDY 
DEY 
BNE 
DEX 
BNE 
RTS 



$0C^ 

«1334 

IM $BC 

PRCHA 
IM *S0 
IM *FF 

*0C3B 

*0C33 



SEND %m TO VIISKJeAR© 

DELAY 
132 

MS 



RETURN 
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TftPE MANAGEMENT EIJ ftIM£5-BASIC VOOR JUNIOR. 



BIJ DEZE BASIC 
uP TAPE ZETTEN. 

RN". DAN 



/E' 



r-l I r 

ur 



TAPE MANAGEMENT 
- PRDGRAMMA'B 
TYPE IN 'BAv 
FILENAME: 

ER KAN NU EEN NAAM VA 
WORDEN MEEGEGEVEN. NA DE 
DE CA3SETTERECDRDER MOET DAN 
BEG I NT DAN TE LDPEN. ALS HET 
BAND STAAT, VDLGT DE MELDING 
PIEPJE. 



- . M 
IM it 



AX. 



itir\r\ I Hi_o VUi-LJi • 

VDLGT DE VRAAG 

12£ KARAKTERB 
M VDLGT "RETURN". 
KLAAR BTAAN, EN 
PROGRAMMA OP DE 
'READY' EN EEN 



TYPE IN 
KDMT NU 

VAN EEN 

p-i — r X — r 

FOUND : 
ALS HET 
LOADING 
ALB HET 
' READY' 



iri 



A'S LEZ 
WEER EN 



^tiuKiM . DE VRAAG: FILENAME: 
ER WDRDT EEN NAAM OPGEGEVEN 
PROGRAMMA DAT EERDER OP DE BAND WERD 
BIJ lEDER OEVONDEN PROGRftMMft VOLGT: 

PROGRAMMA GEVDNDEN IB VOLGT s 



GEHELE PROGRAMMA IS INGELEZEN VOLGT: 

EN WEDEROM EEN PIEPJE. 



N. B. DE PROGRAMMATUUR MOET IN ' TM' STAAN ! 



iaCA2 



0R[ 



$I3CA2 



23 130 

73 (30 

BB B2 

Ota bjz. 

DF BB 

B2 BE 



He 



30 

BC 
70 



1 ^ 

* T 
I -J' 

1 M- 

14 



/I lA 

72 iA 

73 lA 
73 lA 
m 20 



PM* i-r mr 
riM 1 
r.i \r~ 
our 

bur ^ 

uui ir 



u, nur 
RE 

r". m r* 1 \r\ 
r r\uriH 

ITp 
UO 



DO' 



^AL 

BAH 
EAL 
EAH 

^REA 



RDTAPE + 



•T- 



*BB23 
$B2BG 

/fr- rft r\ Hi 

SB3DF 
$I3B!32 
*11ES 
*12AE 
$1334 
$147£ 

A- \ i,r\tr' 
» 1 4BC 

$1A7B 
*1A71 
*1A72 

X t-i / --•< 

*1A73 



= DUMP + 
r RDTAPE 



READY' 



I3CA2 
0CA4 
OCAE 
(3CA3 
0CAA 
0CAC 
0CAF 
0CB1 
0CB4 
(3CBE 
BCB3 
0CBA 
0CBD 
0CBF 



ft2 
B5 



04 
73 



3D 00 20 

CA 

10 FS 
2B G7 
A2 0B 



BB FE 

20 ES 
ES 

oci ^ 

A3 01 
8D 73 lA 



BD 
BD 
11 
lA 



SAVPTR 



PRFNM 



LDXIM $04 
LDAZX PNTRS 
3TAAX ftREA 
DEX 
BPL 
JSR 
LDXIM 



t>uo 
INX 

ST V 
I A 

LDAIM 
STA 



FLNME 

FFNME 
PRFNM 
CRLF 

EAL 
$01 
ID 



SAVE BASIC POINTERS 



PRINT : 'FILENAME:' 
GET FILEM»« 

TRY AGAIN AFTER WR»© FILENAME 



X=X + 1 



DRESSY- 1 (LB> 



3ft: 
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0CC2 


Pi3 


00 




0B&0: 


0CC4 




7B 


la 


0E70: 


0CC7 


as 

3D 






0&30: 




71 

/ O 


Ifl 


0B30: 


0CCC 
0CCF 


3D 


ift 


0700: 
0710: 
0720: 
0730: 
0740: 


20 


BF 


09 


0CD2 


20 


BC 


14 


0CD5 
0CD7 
0CDA 


a3 


02 




SD 


/ 3 


1ft 


flS 


00 
70 




0750: 


0CDC 


SD 


1ft 


07G0: 
0770: 
07S0: 


0CDF 
0CE1 


ft3 


20 




3D 


71 


la 


0CE4 


IS 






0790: 


0CE5 


ftD 


02 


20 


0800: 


0CE8 


&3 


01 

— r 




0810: 
0820: 


0CEa 
0CED 
0CF0 
0CF2 


SD 


1ft 


ftD 


03 


20 


0830: 


£3 


00 




0840 ! 




/ -J' 


1ft 


0850 : 

02G3 ! 


0CF5 


20 


-T (~ 

o 


14 


0CF3 


ft3 


07 




0S70 


OCFft 


20 


34 


•i -T 


0880: 










0890 








0900! 


0CFE 


20 


G7 


0D 


0910- 


0D01 
. 0DB3 


ft2 






0920 
0930 


20 


33 
FE 


UJlJ 


! 0D0& 


B0 




0340 


0D0S 


20 


r~r\ 
CIO 


11 


0350 


0D0B 


ft3 


01 




03E0 
0970 


0D0D 


3D 


73 


■I r\ 

1 M 


0D10 


20 




iTH V, 
VJJO 


03S0 


0D13 
0D1E 
: 0D13 


•-if* 


BC 


14 


0330 
1000 


r\'-» 


00 




BD 


00 
S0 




1B10 
1020 


: 0D1B 
: "^^i.i 


DD 


rTi--i 
bJ^ 


D0 


03 
0D 




1 030 


: BD^iE 






1040 


: 0D22 


F0 
E3 


18 




1050 


: 0D24 






10E0 
1070 


: 0D25 


4C 


X o 


r»r\ 
\iJU 


: 0D23 


20 


CF 


0D 


1080 


: 0D2B 


20 






1030 


: 0D2C 


4E 






1 100 


: 0D2D 
: 0D2E 








1110 


crcr 






1120 


: 0D2F 


4E 
44 






1130 


: 0D30 






1140 
1 150 


: 0D31 
: 0D32 


3Pt 






03 






11E0 


: 0D33 
: 0D3B 
: 0D33 


20 


7E 


0D 
11 


1 170 


20 


E3 


1130 


4C 


0B 


0D 


1130 
1200 


: 0D3C 


20 


CF 


0D 


: 0D3F 


0A 
4C 

/. r- 






1210 


: 0D40 






1220 


: 0D41 






1230 


: 0D42 


41 






1240 


: 0D43 


44 






1250 


: 0D44 
: 0D45 


43 






12B0 


4E 






1270 


: QD4& 


47 
3A 






i2@ii 0D47 







FDTP 



LDfiD 



ID01 



COMP 



LDftlM 

BTR 

LDftIM 

BTA 

BTft 

JSR 

JSR 

LDftIM 

BTft 

LDftIM 

BTft 

LDftIM 

BTft 

CLC 

LDft 

ftDCIM 

BTft 

LDft 

r\T\r^ T M 
MUU X 11 
r^-r r\ 
O I M 

o br\ 

LDftIM 

J" r\ 

RTS 

JBR 
LDXIM 



JSR 

L_ui-i X ri 
STft 

T r> Pi 

LDftftX 

CMPftX 

BNE 

CMPIM 

BED 

INX 



PRFND JBf 



PRLDAD 



JMP 
JSR 



$00 

BftL 

$02 

BftH 

EAH 

DUMP 

RESTTY 

*02 

ID 

$00 

BAL 

$20 

BAH 

AREA 

$01 

EAL 

AREft 

$00 

r- r\\ I 
ciHri 

DDTP 

$07 

PRCHA 



BTARTADDREBS (LB) = 00 

BTARTADDREBB (HB) = 02 

ENDADDRESB CHB) = 02 
Pyi FILENAME ON TftPE 

IB-CODE =02 

START ADDRESS <L6> * i^. 

STfiRT ADDRESS CHB) = 20 

+02 ENDAD = BASIC ENDADDREBS +1 

ENDADDREBB <LB) ■ 
4-03 - 

ENDADDREBS (HB) 

PUT BASIC PROGRAM ON TAPE • ■ 

RING THE BELL 

RETURN TO mmc 



FLNME 
$30 

r- r- K I n 
r r" i -ll 'ltl 
1 r-i r-\ r\ 
ULJt-iiJ 
r^r\\ r~ 

L^r\ur 

/*■ rft -i 
aptJ X 
T ■n. 

RDTftPE 
RE3TTY 

nn, 

t il ir- -. 
our ^ 

PRFND 

PRLOfiD 

$0D1S 
PRINT 

'F 
'0 
'U 

*U 
*D 

1 m 

$03 

PNftME 

CRLF 

IDDTP 

PRINT 

$0A 

'L 

'0 

*R 

' I 
' N 
' 0 



Gr-T* 
C I 



ii> 



FILEMftME 



fiF 



FILENAME 



GE 



:Nftr 



FROM TftPE 



uuiirHr\c. r 

WftNTED 



FROM TflPE 



PR INI 



PRINT FILPi*^ Wmn TiPE 



NEXT FILENAME F«9» TAPE 
: LOADING 
LINEFEED 



UC. I 
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I3B43 03 

0D43 20 

0D4C 20 

0D4F fi3 

i3D5i 8D 

nhrscr /. --if* 

0D57 ft2 

0D53 BD 

0D5C 35 

BD5E Ca 

0D5F 10 

iSB&i f-l3 

0D&3 20 

0D E0 

BDE? 20 

0DSft 20 

0DEB 4E 

BDEC 43 

BDED 4C 

0DEE 45 

BDEF 4E 

BD7B 41 



7E BD 



0D71 
BD72 
BD73 
0D74 



4D 

3P 



B2 
73 
3E 
04 
00 



Ifi 

14 GBAS 
20 STBPTR 



FS 
07 

34 13 

CF 0D FLNME 



JSR 
JBR 

L_L/H 1 n 

STft 



LDAftX 
ST RAX 

DEX 

u 

LDfilM 
JSR 
RTS 
JSR 



*B3 

PNfiME 

CRLF 

T r\ 
i U 



AREA 

mrm 

407 
PRCHA 

PRINT 
» 

'F 
' I 
'L 
'E 
•N 
'A 

'E 



FROM TAPE 
IB-CDDE = B2 
GET BASIC PROGRAM 
RESTORE BASIC POINTERS 

r\itMu ( rid oci_L_ 

RETURN TO BASIC 
PRINT : FILENA^S, 



.1^ 



$0" 



0D7E 
BD7S 
BD7B 
BD7C 
BD7F 
BDS0 
0D32 



A2 
BB 



00 

m 02 



PNAME 



0DS5 

WJUOO 

0DS3 

0DSE 
BD30 

UZJ X 

0D34 
BD35 
BD3S 
0D3ft 
BD3C 
0D3D 

0DP11 
0Dfi3 
0Dfi5 
BDftS 
0DP3 
BDPlft 
BDftB 
0DAD 
0D&0 
0DB3 
BDBE 
0DB7 
0DBS 
BDB3 
0DBA 



20 34 13 



F0 

r~ri 
CZ.O 
/. 

t+L^ 

r- 

OVU 

20 
C3 
F0 
4S 
20 

3D 

r-r* 
r- i£j 
r- r-i 
no 

EB 
F0 
E0 
F0 
4C 
IS 
E0 
Cfi 
f-i3 
20 
4C 
20 
0A 

/. r- 
M-D 

43 
4C 
45 



BD 
04 

7B BD 

c .1. -n. 

-r r- 
r 

ifi 

34 13 

B0 02 

BD 

BC 



/ r 
■1 •-» 
J. ^ 

FF 

BE 

S3 BD 



0O 

34 i; 



m 

Mi 



FFNME 



EXIT 



LDXIM 
LDftAX 

PHA 
JSR 
FLA 
CMPIM 

r*ir"o 

T K I \/ 

J. IN A 

JMP 



FHR 
JSR 



CtlPIM 
EEQ 

T k t U 

CPXIM 
BED 



J Fir 

CLC 

RTS 

DEX 

LDAIM 

JSR 

JMP 



400 

BUF 
PRCHA 

$BD 

RET 

PNAME 

i7F 
STORE 

PRCHA 

BUF 

40D___ 

EXIT 



»> c r 
r-rM-%r>r\ 



FFNMi: 



40S 

r nunH 

FFNME 
PRINT 
40A 



PRINT FILENAME GOT FROM TAPE 



GET FILENiPME FROM KEYSDARD 
STORE FILENAME 



0200 ..... B27F => IF X 00 (SAVE) 
B2S0 aZFF => IF X == 30 (LOAD) 



FILENAME TOO 

crx r\ur\ c a i t 
FILENAME TDD 



-ARGE (IN CASE DF SRV'E) 
.ARGE (IN CASE OF LOAD) 



iS-I^m^l CHARACTER^ 

CARRY FDR MJBfAL EXIT 



fS^M 5 BAC^^SPACE 

IF m mmMf um depressed 



PRINT s FILII 



TOO LARGE 



1 I 
U 

'E 



40 
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1330 
1340 
1350 
i3B0 

i^i. 

1330 
2000 
2010 
2020 
2030 
2040 
2050 
20&0 
2070 
20S0 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
21E0 
2170 
21S0 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
22B0 
2270 
22S0 
2230 
2300 
2310 
2320 



0D6B 4E 
0D6C 41 
0DBD 4D 
0DBE 
0PBF 
0DC0 
0DC1 
0DC2 
0DC3 __ 
0DC4 iiC 
0DC5 41 
0DCS 52 
0DC7 47 
0DCS 45 
0DC3 03 
0DCPI 20 
0DCD 38 
0DCE &0 



20 
54 
4F 
4F 



JBR 

BEC 
RTB 



'N 

'ft 

'M 

'E 
1 

'T 

•8 

'L 

' ft 

' R 

'B 

'E 

4103 

CRLF 



;find following bub in junior 

5 AN EDITION DP ELEKTUUR 



PAPERWftRE NR 1 



0DCF 


GS 




PRINT 


PLft 




PULL RETURN ftDDRESS 
BTACK ftND BftVE IT 


0DD0 


S5 


23 




BTftZ 

PLft 

BTftZ 


MEPNT 


0DD2 
0DD3 
0DD5 


B8 








85 


24 




MEPNT 


+01 


EG 


PRTft 


INCZ 


MEPNT 




0DD7 


D0 


02 




BNE 
INCZ 


PRTB 




0DD3 


EG 


24 




MEPNT 




0DDB 


ft0 


00 


PRTB 


LDYIM 


$00 

MEPNT 


FETCH CHftRftCTER ftND 
PRINT IT 


0DDD 


Bl 


23 




LDftlY 
CMPIM 


0DDF 


C3 
FB 


03 




$03 


EOT? 


0DE1 
0DE3 


0G 




BEQ 


PRTC 
PRCHft 




20 


34 13 




JBR 




0DEE 


4C 
A5 
4S 


D5 0D 




JMP 


PRTft 




0DE3 


24 


PRTC 


LDftZ 


+01 PUSH RETURN ftDD 


0DEB 






PHft 




DN BTftCK ftND 


0DEC 


05 
48 


23 




LDftZ 


MEPNT 


RETURN 


0DEE 






PHft 




0DEF 


G0 






RTB 







SYMBOL TABLE 4000 4140 111282 PAGE 01 



AREA 

CRLF 

EftL 

FLNME 

ID 

PNftME 

PRFNM 

PRTB 

REBTTY 

SAVPTR 



2000 

llES 
lft72 
0DB7 
lft73 
0D7E 
0CftC 
0DDE 
14BC 
0CA4 



BUF 
DOTP 


147& 
0DB3 


BUFR 


0230 
B3DF 


COMP 
EftH 


0D1S 
iA73 


DUMP 
EXIT 


ERROR 


BDftS 


FFNME 


aDS3 


FDTP 


BCCF 


GB 


143G 


GBftB 


BD54 


IDOTP 


BD0B 
0073 


LOftD 
PRCHft 


0CFE 
1334 


MEPNT 


0023 


PNTRB 
PRINT 


PRFND 


0D23 


BDCF 


PRLOftD 


0D3C 


PRTft 


0DD5 
i2ftE 
lfi70 


PRTC 


0DE9 


RDTftPE 


BBB2 


RECCHft 


RET 


0D88 


BftH 


lft71 


SftL 


STBPTR 


01^3 


STORE 


mm 


TftPEUT 


0CA2 
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• mm 





RESET 



PAGE 01 



00219: 
0030: 
0040: 
0050: 
00G0: 
0070: 
13080: 
0030: 
2^100: 
2)i 10: 
0i20: 

ai30? 

i0140s 
^150: 

S3iB05 
3170? 

.31S0S 

0220." 
®230! 
3240: 
0251i" 
02B0i 
0270: 
0280: 
0280; 
2300: 
0311 
032L 
0330 ! 
0340: 
3350: 
03G0: 
0370: 
0330: 
0330; 
0400: 
5254 10: 
0420 : 
0430! 
0440: 
0450: 
04E0! 
0470! 
0480: 
0430: 
0500: 

0510! 

0520: 
0530! 
0540! 
0550: 
05£0: 
0570: 
0580: 
0530 s 
0£00; 



RESET PM mmr 

8S3S* SS3S S 'SS 3SSSBffi3BSS S8S SS 

E. J.M. VISSCHEDIJK, DRAKENSTEYN 233, 7E03 TR ftLMELO. 

unDnT^yybKn^'^f!i.rl^Sr.R°tiS|NSftTOR, WEERBTflND EN DIDDE -' 

uRdRt P§r^P8§fc.^l2?*'°i SI "J POWER UP EEN RESET / 

UORDT GEDEVEN Czi® Elektuur waart '81, p. 55). 



St 



D 



1HHIH9 



IN DE EPRDM DIE DE SYSTEEMVECTDREN HERBERGT MQETEN 
Scr."H.^IiiKPF.y PLftATSVINDEN. DE RESETVE^©« W^T NA- 
MELIJK ERGENS ANDERS HEENWIJZEN. «m 



ADRES: 

FFFC 

FFFD 



WAS: 
ID 
IC 



WORDT: 
80 
0C 



0CS0 



0C8O D8 
0CS1 78 
0C82 A2 
0C84 9A 
0CS5 SE 
0C87 A9 
0CS3 85 
0C8B A9 
0CSD 85 
aC8F 4C 



Fl 00 
F2 00 
FF 00 



FF 

F2 
04 
Fl 
03 
FF 

00 10 



2k§«^£I §YSTEEM NU WORDT AANGEZET. DAN HDEFT ALLEEN 
MAAR DE RUB-OUT TOETB IE WORDEN INBEDRUKT. 

RESET ORG «BC80 

PREG 4c 
8PUSER * 
MODE 




CLD 
SEI 

LDXIM *FF 
TXB 
BTX 



SPUSER 



LDAIM «04 



STA 



PREG 



LDAIM 403 



STA 
JMP 



MODE 



DISABLE IRQ 

ADJUST STACK POINTER 

RESET P-REG. 
SET AD MODE 

JUMP TO INITPR. PM STARTUP 
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SOFTWARE 



10 

20 

30 

40 

50 

&0 

70 

80 

90 

100 

110 

120 

130 

U0 

150 

180 

170 

130 

190 

200 

210 

220 

230 

240 

250 

2E0 

270 

280 

290 

300 

310 

320 

330 

340 

350 

3E0 

370 

380 

390 

400 

410 

420 

430 

440 

450 

480 

470 

480 

1+30 

500 

510 



DEFFNZZ(C)=INT(:C*100+. 5) 
DEFFNWW ( C ) = I NT C C/ E0* 1 00+. 5 ) / 1 00 
DEFFNX X C C) = I NT ( C+ 1 00+. 5) / 100 
GDSUB2E00 : Q2*= " %" : B=0 
FORX= 1 TO 1 0000 : B=B+ 1 
REflDW*: IFW*="-«-"THENS0 
NEXT 
B=B/10 
PRINTS 
RESTORE 
Q9=0 

F2=0:F3=(a:F4=0:Fl=F2+F3+F4:DIMA*(B, 10) :DIMX»(10) 
FDR K=l TO 10:REPiD X$(K):NEXT K 
FDRI = lTDB:FORJ=lTO10!REftDft*CI, J) 
IFa*(:i,9)="0"THENi70 
NEXTJ:NEXTI 

PR I NT "######»»»» SERVICE RRPPQRTe* lElTftNB 

PRINT:PRINT 



PRINT"TYPE 0 VOOR OUTPUT VPiN 
PR I NT "TYPE 1 VDOR OUTPUT VRN 
PRINT"TYPE 2 VDOR OUTPUT VftN 
PRINT-TYPE 3 VDOR OUTPUT VON 
PR I NT "TYPE 4 VOOR OUTPUT VfiN 
PRINT"TYPE 5 VOOR OUTPUT VPiN 
PRINT "TYPE E VOOR OUTPUT VftN 
PRINT"TYPE 7 VOOR OUTPUT VfiN 
PRINT"TYPE S VOOR OUTPUT VftN 
PRINT"TYPE 9 VOOR OUTPUT VPiN 
PRINT 

INPUT"UW KEUZE : ";L:PRINT 
IFL=9THEN390 

INPUT "WILT U EEN OUTPUT OP PftPIER ? CJA DF NEE) ";L3* 
IFLEFT*CL3*, 1 •) = " J"THEN3B0: IFLEFT*<L9*, l)*"N"THEN370sGOTO320 

IFLEFT*(:L9*, n="N"THEN370 
GOTO320 



540 
550 
SB0 
570 
580 
590 
800 
B10 
820 
830 
840 
850 



BEPftftLBE DATUM" 
BEPfiPiLD UI-NUMMER" 
BEPftftLBE CLIENT" 
BEPfiftLDE WOONPLftftTS" 
TOTftPlL OVERZICHT" 

MftCHINE+JOB-CODE+WERKTIJD+REISTIJD" 
NflftM CLIENT+WOONPLftftTS+MftCHINE+OPMERKIND" 
OVERZICHT PER TYPE MfiCHINE 
DIRECTE UREN OP RLLE DPlTft' S 
GEHEtX .PiDliRai<m«^ I^R TAPE 



2100. 1980, 1700 



iXl« 



GOSUB2590 : NUJU^ !,e«SUB2600 , 
GOSUB2B00 
PRINT 

IFL=0Tt-IEN440 

DNLGOTO410, 470, 500, 530, 1530r ISfia, - 
INPUT "WAT IS HET UI-NUMMER 
GOBUB2600 : J= 1 : GOSUB 1 380 
PR I NT: GOTO 130 

INPUT "WAT IS DE DATUM ? CDD/MM/JJJJ) 
GOSUB2E00 5 Ja2 ! GOSUB 1 3S0 

GDTO430 

INPUT "WELKE CLIENT ? ";X1* 
GDSUB2B00 : J=3 : GOSUB 1 380 
GDTO430 

INPUT "WELKE WOONPLAATS ? ";X1* . . 

DOSUB2B00 : J=4 s GOSUB13S0 

GDTO430 

T 1 =0 : T2=0 : T3=0 : V 1 =0 : V2=0 : V3=0 : V4=0 : V5=0 : VB=0 : 11=0 : 12=0 
INPUT "WILT U EEN OVERZICHT VAN EEN BEPAALDE PERiOei 
IFLEFT*(X*, 1) = "N"THEN800 m.n,*^0u^, 

GOSUB2800: INPUT"GEEF BEGINDATUM (DO/MM/JJJEJ> I "iPAf 
print: INPUT"GEEF EIND-DATUM (DD/MH/JJJjf^^S '•fPC* 
PB*=LEFT*(:PR*, 5) :PD«=LEFTtCPC*,5> 
GOSUB2&00:Q9=0:GOTOei0 • ^ 
GDSUB2B00:Q9=1 
J=2:F=0 
FOR 1=1 TO B 
IF a$(:i,J)="0" THEN 700 
IFD9=1THEN670 
I FA* CI, J) <PB*THEN890 
IfAI C I, J 5 ? PD*THEN700 
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&r-»rft r- r"_i_ 4 

b38 NEXT I 
71313 FDRI = 1TDB 
7 i iS J— 

720 IFQ3=1THEN740 

730 IFA*CI, J)=PC*THEN730 

740 IF ft*(I,J)="0" THEN 7BB 

750 NEXT I 

7B0 ft8*=ft*(I-i,2) 

770 GDTD730 

7S0 03*= A* (I, J) 

790 IFO3=1THEN840 

B00 FDRI=1T0B 

g|@ J=2 

320 IFft*(I,2>=Pft*THENS50 
330 NEXT 
340 1=1 

350 F0RI=ITDB: J=& 

350 IFQ3=1THENSS0 . . ^ ^ 

370 I Fft$ < 1 , 2 > «PC*ftNDft* ( I + 1 i 25' <^ Pmi^iMtWm 

380 IFft*(I, J)="01"THEN370 

890 IF A*<I,J)="02" THEN 330 

380 IF ft*CI»J>="03" THEN 330 

310 IF «*CI, J) = "0" THEN 1000 

320 IFAtCI, J)="IND"THEN350 

330 IFA$<I, J)="VftK"THEN3e0 

340 NEXT I 

350 Il=Il+VftLCft*CI, 8) ) :GOTD340 
3E0 I2=I2+VfiL(ft*(I,3)):GOTO340 

370 Tl=Tl+l:Vl=Vl+VftL(ft*CI,7)) :V2=V2+VftL(fi*<I,S)) :G0TD 940 
§80 T2=T2+l:V3=V3+VftL<ft*CI,7))!V4=V4+VftL(«*CI,8)):G0TD 340 
130 T3=T3+l:V5=V5+VftLCft*CI,7)) :Ve=VG+VftLCft*<I,8)):GDT0 340 
1000 V7=V 1 +V2 : V8=V3+ V4 : V3= V5+ VE : W3»V7+VS+V3 
1010 IFV7=0THENV7=1 : IFV8=0THENV3=1 
1020 IFV3=0THENV3=l:lFWa«0THENW3»l 
1030 W0=V1/V7:W1=V3/VS 

1040 W2=V5/V3:W3=V2/V7:W4=V4/V8:W5=VE/VSayB*=V7/W3 
1050 W7=V3/W3:WS=V3/W3 

10B0 V3=FNWW<V3) :W3=FNWW<W3) :W0=FNZZ(W0) :W1=FNZZ (Wl ) : W2=FNZZ < W2) 

1070 W3=FNZZCW3) :W4=FNZZ(W4) :W5=FNZZ(W5) :WE=FNZZ<WE) :W7=FNZZ<W7) 

1080 WS=FNZZ(WS) :V1=FNWW(V1) :V2=FNWW(V2) :V3=FNWWCV3) :V4=FNWWCV4> 

its® V5=FNWW(V5) :VE=FNWW(Ve) :V7=FNWW(V7) :V8=FNWWCV8) 

1110 PRINTTftBC22)" INSTALL. ";"STDRINBEN " 5 "S-BEURTEN" 

1110 IFD3=1THEN1140 

1120 07*= PA* 

11313 GOTO 1150 

1140 A7*=A*C1,2) 

1150 PRINTA7*;"-";AS*;" ";"######## ";"#*#####»# ••;"#########" 

1 1 E0 PR I NT " A ANT AL " ; T AB < 2 1 ) T 1 ; T AB ( 33 ) T2 ; TAB ( 45 ) T3 

1170 PRINT"REISTIJD IN UREN" 5TABC2i)Vl ;TAB<33)V3;TABC4S)V5 

1180 PRINT"WERKTIJD IN UREN" 5TAB(21 ) V2;TABC33) V4;TAB(45>VB 

1 1 30 I FT 1 =0THENV7=0 s I FT2=0THENVS=0 : 1 FT3=0THENV3=0 

1200 PRINT"TOTAAL-A" STAB(21) V7sTAB(33) V8;TAB<45) V3 

1210 PRINT"REIST. IN 14 V. TOT-A" !TAB(21)W0?Q2*;TAB(33)W1 5D2»;TAB(45)W2;ia2* 
1220 PRINT"WERKT. IN % V. TDT-A" ; TAB !:21 :> W3 ; Q2*;TABC33) W45Q2*; TAB(45) W5;Q2* 
1230 IFT1=0THENWB=0: IFT2=0THENW7=0 : IFT3=0THENWS=O 

1240 PRINT"J-CDDE IN 'A V.. TQT-OV" ;TABC21 ) W65Q2*;TABC33)W7;Q2*;TftBC45)W8;Q2* 

1250 PRINT :T4=T3+T2+T1 

1250 1 1 = I NT ( 1 1 / B0 ) : 1 2«| < | J/I^J , 

1270 F1=I1+I2 

1280 F2=(F*8)-F1 : F3=INTCW3/F2*100+. S) 

|23i PRINT"AANTAL TOTAAL GEWERKTE UREN T/M ";AS*;" IS ";W3 
1300 PRINT"UREN VAKANTIE IS : " ; 12 ; " INDIRECTE UREN IS !"5ll 
1310 PRINT"ZODAT MAXIMUM DIRECTE UREN IS !";F2 
1320 PRINT-TOTALE DIRECTE UREN VAN MAXIMUM IS ";F3;" %" 
1330 PRINT"ftANTAL SERVICE RAPFORTEN T/M ";AS*;" IS ";T4 
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1340 GDSUB25S0 

1350 PRIWT:lNPUT»\««ii MBERE OUTPUT TYPE '1' "5Q* 

13&0 GOSUB2B00 
1370 IF Q*="l" THEM ISS 
1380 FOR I=1T0B 

1330 IF = XI* THEN 1430 

1400 IF A*CI,J)="0" THEN 1550 
1410 NEXT I 
1420 GOTO 1330 
1430 PRINT:K=1 
1440 FOR M=l TO 10 
1450 PRINTX*(K)5»»CI,M) 
14E0 LET K=K+1 
1470 NEXT M 
14S0 PRINT 

1430 PRINT"VDOR MEER GEGEVENS TYPE ' 1' IN " 
1500 INPUT "VDOR fiNDERE OUTPUT TYPE '2' IN ";T 
1510 GOSUB2G10 
1520 IF T=l THEN 1410 
1530 GOSUB25S0 
1540 IF T=2 THEN 430 

1550 GOSUB2&00: PRINT :PRINT"MEER DATft IS £R NIET* 
15&0 INPUT"VDOR fiNDERE DflTfi TYPE '1' IN. "5X2* 
1570 GOSUB2G00:GOSUB2580 
1580 RETURN 
1530 Gl=l 

1B00 PRINT"TYPE MACHINE", "JOB-CODE", "REISTIJD" , "WERKTIJD", "WOONPLftftTS" 
1E10 PRINT:PRINT 
1B20 FDRI=1T0B 
I 530 F0RJ=5T0S:PRINTft*CI, J), 
1B40 IFft*(I,l)="0"THENlS30 
1B50 NEXT:PRINTA*CI,4) 
1B60 Gl=Gl4-l s |Fet«B0THEm£80 
1B7B NEXT 

1BS0 PRINT :PRINT"TYPE MRCHII^'S «I?EISTIJ©", «i^«TIJD", 

1B30 PRINT:PRINT:NEXT 
1700 GOSUB2B00 
1710 PRINT:PRINT 
1720 FORYB=20TO1STEP-1 
1730 F0RY7=1T02 

1740 PRINT"OVER"5Y6t _ 
1750 PRINTTftBC7)"^CC»*i»l*l i«3RDT HET PROGRftMMfi OP TAPE GEZEf»*l« "I 
17B0 PRINTCHR*C11> 
1770 next: NEXT 
1780 PRINT 
1730 PRINT 

1800 PRINT"PROGRAMMfi WORDT NU WEDGESCHREVEN. " :SfiVEA: PRINT 

1810 PRINT"GEHELE PROGRAMMA STAAT NU OP TAPE ONDER ID-NUMMER # A ». 

1820 PRINT:PRINT"ER ZIJN NU NOG" JFRECO) ! "PLAATSEN IN HET GEHEUGEN VRIJ. " 

1830 PRINT:INPUT"VOOR ANDERE OUTPUT TYPE '1' IN: "?X2* 

1840 GOSUB2B00:GOSU62580: IFX2»="1"THEN130 

1850 END 

1SB0 PRINT"OVERZICHT VANAF ";A*(1,2)5" VAN :" 

1870 PRINT"NfiAM CLIENT" ;TABC30) "WOONPLAATS" ;TAB(50) "DATUM" 

1880 PRINT"TYPE MACHINE" ;TAB<30) "OPMERKINBEN" 5 TAB (50) "JOB-CODE" 

1830 PRINT 

1300 F0RI=1T0B 

1310 IFA*(I, 10)="GEEN"THEN1370 
1320 IFA»CI,2)="0"THEN1830 
1930 1FA*CI,10)="X"THEN137B 
1340 PRINT"-" 

1350 PRINTA*(I,3) ;TAB(30)fi*CI,4) 5TABC50)A*CI, 2) 
13B0 PRINTI^CI,S>$Tf^i301(l»«lrlllllff^C10>A«CI,6> 
1370 NEXT ' 

1380 PRINT"DATUM", "REIS UREN","WERK UREN", "JC PER DAO", "AftlNnm. IfiBJ.' S** 

1330 PRINT :PRINT 

2000 FDRI=1TDB 

2010 IFA*(I, J)="0"THEN1S30 

2020 AB»AB-^VAL(A«C I, 7) ) s AC«AC-kVAL(A»( I, 8> > : AD"AD4-1 
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2i330 IFft$(I,2> <>ft*CI+l,2>THEN20S0 

2040 NEXT 

2050 ftEi=FNWWCftB;) :P)C=FNWW(aC) 
20B0 fiE=ftB+PlC:ftF=PlE/ . 0S:ftF=FNXX<AF) 
2070 PRINTS* C I, 2) , ftB, ftC, OF ; TPlB (49) Q2*» AD 
2030 aB=0:ftC=0:aE=0:ftD=0:PlF=0 
2090 NEXT 

2100 PRINT"OVERZICHT PER MACHINE VftNftF "5 A* (1,2) 

2110 PRINT: PRINT 
2120 EPl*="REL. 450" :GOSUB2330 
2130 Bfl$="REL. 550" :GD3UB2330 
2140 Bft$="REL. 700" :G0SUB233B 
2150 Bft*="REL. 750" :GDSUB2330 
21E0 BP!$^"250" 

2180 Bft^="Rv'-l" :GDSUB2330 
2130 BA*="RV-2" :GOSUB2330 
2200 BPi*="RDTOLINE":GOSUB2330 
2210 Bfi*="STfiRVUE" :GOSUB2330 
2220 Bft*="MDTDRMftTIC" :GDSUB2330 
2230 Bft*="mRACODE II":GOSUB2330 
2240 Bft*="321":GOSUB2330 
2250 Bft*="322" :DDSUB2330 
22B0 Bft*="321-323":GDSUB2330 
2270 BPl*= " 322-323 " :GOSUB2330 
2230 Bft*="PROBTftR":GDSUB2330 
2290 BFl*="KOD. 324" : GOSUB2330 
2300 BR$= " VER. I I" ! GOSUB2330 
23 1 0 Bft$= " R. 420R " : GDSUS2330 
2320 GOTO 1330 

2330 Y 1 =0 : Y2=0 : Y3=0 : Y4=0 : Y5=0 s Yea=0 

2340 IFBA*="322"THENY3=30 

2350 F0RI=1T0B 

2380 IFft*(I, 1)="0"THEN2440 

2370 IFA*(I,5)=Bft*THEN2390 

2380 NEXT 

2330 I F A* C I , G ) = " 02 " THEN2420 

2400 Y1=Y1+VAL(:A*(: I, 7) :> :Y2=Y2+VALt:A$CI, 3) ) :Y3=Y3+1 
2410 NEXT 

2420 Y4=Y4+VALi:A*<I,7)) : Y5=Y5+VAL CA* CI, S) ) : Ye=YB+l 
2430 NEXT 

2440 IFY3=0THENY3=1 
2450 IFY&=0THENYE=1 

24&0 Z1=Y1/Y3:Z1=FNWW(Z1) :Z2=Y2/Y3:Z2=FNWW(Z2.) 
2470 Z3=Y4/Y&:Z3=FNWW(Z3) : Z4=Y5/ YG : Z4=FNWWCZ4) 
2430 PRINT: PR I NT "##### ";BA*;" #####" 

2430 IFZ1+Z2=0THENY3=0 
2500 IFZ3+Z4=OTHENYE=0 

2510 PRINT"ftANTAL SERVICE BEURTEN : ";Y3; 

2520 PRINTTAB<32) "AANTAL STDRINGEN : ";YG 

2530 PRINT"GEMIDDELDE REISTIJD : ";Z1; 

2540 PRINTTAB(32) "GEMIDDELDE REISTIJD : ";Z3 

2550 PRINT"GEMIDDELDE WERKTIJD : ";Z2; 

25B0 PRINTTfiBC32) "GEMIDDELDE WERKTIJD : " 5 Z4 

2570 RETURN 

25S0 P0KE&"1AB5", 00: RETURN 
2530 POKES" 1A05", 01 : RETURN 
2B00 PS=USR(&"FF12", 0) :RETURN 
2B10 P3=USR(&"FF0D",0) : RETURN 

2B20 DfiTA"UI-NUMMER :", "DATUM 

2B30 DftTA"NAAM CLIENT : " , "WDONPLAATS. 

2B40 DATA"TYPE MACHINE :", "JOB-CODE. . . 

2B50 DATA"REISTIJD IN MIN. .:", "WERKTIJD IN MIN. 

2BB0 DATA"ONDERDELEN. : ", "QPMERKINGE 

2B70 DATA01 , 07/07/ 13B2, JANSEN»Ol£»iM, REL.7 
2ES0 DATA01, 20, 30, X, X 

2B30 DATA02, 03/07/ 1332, LINSEN, ALSMEER, REL. SS0 
2700 DATA02, 40, 50, X, X 

27 10 DATA03, 09/07/ 1992, Kl^RSM* m* mimCODE I X 
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2720 DRTft03, 30, 70, X, X 

2730 DftTfiX, 03/07/1932, X, X, X, IND, X,300, X, X 
2740 DftTfi03, 10/07/ 13S2,HINSEN.BASR,STftRVUE 
2750 DfiTfi03,40, 70, X, X 

27&B DftTftX, 10/07/1382, X, X, X, VftK,X, 200, X, X 
2770 DATft02, 11/07/1332, DENSNEN.ECH,REL. 450 
27S0 DPITA02, 20, S0, X, X 
2730 DAT A0, 0, 0, 0, 0. 0, 0, 0, 0, 

BESCHRIJVING_SERVICE-RAPPOR^^ 

llSltiis IMIIM^iAM HINTUM, Wolborgenmate 130 , 7006 DL DOETINQW, Tel . 08340-25320 

i&ft pregriffliaai is bedoeld m van servlce-i*app6rt®i enin overzicht te gtffri ontrent 
inforaatle over bepaalde: 

- identificatienuinraers (= uniek kenteken per machine) 

- data 

- namen van clienten 

- woonplaatsen van clienten 

- tyipm uachifies 

- aard van het service-rapport (= bijv. storing; onderhoud) 

- reistijden 

- i^pla#%ste onderdelen 

- opmerkingen 

De bedoeling is dat het prograirana steeds aangevuld wordt met nieuwe gegevens, door 
ffliiiel ^an nieuwe data-regels. De eerste vijf data-regels behoren vast bij het pro- 
gramma. De daarop volgende zijn regels met informatie. De laatste data-regel moet 
echter altijd als volgt zijn: DATAO,0,0,0,0,0,0,0,0, 4- 

Ite inforaatle raoefc in dezelfde volgorde geschreven worden als in de eerste vijf 
data-regels. Tijden moeten in minuten opgegeven worden. Als andere typen machines 
gebruikt worden, dienen de regels aan het eind van het hoofdprogramraa waarin BA$ 
bsnd^lid 'mm^t natuurli jk veranderd te worden;, kunnen zoveel typen opgegeven wor- 
den als nodig is. Als aard van het serYice-mgpsrt heb ik geko2sen voor: 
01 = INSTALLATIE 
m s STORING 

03 = ONDERHOUDSBEURT (= SERVICEBEURT ) 

IND = VERANTWOORDE INDIRECTE MINUTEN (= bijv. VERGADERINGEN ) ,; 
fM 3 VAKANTIE MINUTEN 

Een voorbeeld: DATA X, 10/10/1982, X,X,X,VAK, 0,480, X,X 

Het werken met minuten lijkt erg lastig, maar door dit vaker te gebruiken valt het 
erg mee.-. lefe is noodzakelijk voor de nauwkeurigheid . 

Als er voor opmerkingen als data 'X' of 'GEEN' opgegeven wordt, dan verschijnt dit 
service-rapport niet bij het uitprinten wanneer Keuze '6' is gedaan. 
lis tet pm^meam ^start wrdt, verschijnt er een getal dat aangeeft hoeveel inge- 
voerde service-rapporten aanwezig zijn. Ter kontrole met dit all^ijd ^^en §eheel ge- 
tal zijn. De verdere gebruiksaanwijzing volgt vanzelf uit het laten *'ruiirtefl* van 
het programma. 

POKE&"1A05",00 en POKE&" 1A05" ,01 zet mijn teletype printer van 110 BAUD resp. aan of 
uit. Telkens als de subroutine Print Character (= 20 3.4 13) voorkorat springt mijn 
Basic naar adres $1500. In deze routine wordt voortdurend gekeken of plaats $1A05 
geladen is met 00 of 01. In het laatste geval gaat de Elekterminal over op 110 BAUD 
en verschijnt er data op mijn printerlijn. In alle andere gevallen werkt alles norHBal., 
P8=USR(&"FF12",0) roept de subroutine Clear Sreen aan. 
P9=USR(&"FF0D",0) roept de subroutine Cursor Home aan, 
Deze routines kan men natuurli jk ook achterwege laten. 

Door kleine verandtrll^sR iJa het la^gramma aan te brengen is het mogelijk an voor 
iedereen met dit progrataia een toepassing te vinden. 
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Een advertent ie in Eiektuur 
waarin PROTON Electronics aan- 
dacht vraaat voor haar 65XX 
kaarten en floppy disk wet DOS 
Mas voor de redakt i e I eden van 
Pelt en Sweehuizen en ook voor 
ons lid Franssen aanieiding te 
kontakten met senoemd bedrijf. 
UiteindeiiJk vioeide daaruit 
een aesprek voort tussen het 
bedriJf en ons bestuur om er- 
achter te koMen wat PROTON «n 
haar produkten voor de club •n 
Mat de Club voor PROTON t* b«- 
%«k«fi«f) K«n h«bl»#n. 



V4at PROTON 



voor Club kmn 



Levering van hard- en so-Ftware 
aan onze clubi«d»ni tesen «en 



Disk-drive 5-1/4" (single-density, single-sided) 
PltSp|ay#iSk controllerkaart FDC-4 (IBM3740 compatible, 
geschikt voor aansluiten van ma;;. 4 drives en een 
Centronics compatible printer en een serial printer), 
iisk OperatiF»§ SystBrn/Monitor als software ondersteuning. 
Diskette met systeem-so-f tware: 

* ASM65 2-pass symbolic assembler (MQS-TECHNQLOGY standaard) 
I fDIT65 Regelgeorienteerde editor 

* BftSIC PratoriB snelle BASIC interpreter/compiler 

(werkt met LABELS en regelnummers en kent 
nifww met variabele lenfte tot" 16 tearratetars) . 
Forth programmeertaal (zeer uitgebr®isjB ViEfrsie met 
dii disk als virtueel geheugen) 
Een aantal prm§rmmm*m toaiss 
- OLOAD L«ad with offset 

ft"int memory usage of program 
J^psre file to mesKjry <-Krffset) 
Combine two files (text) 
Split a file in 2 
Count the lines of a file 



I UTILITY 



I FORM 



- MAP 

- COHP 

- MERBE 

- SPLIT 

- COUNT 

Een simpele format-lister voor h«t mafe«R van document jfti^ 



M ieze programma's werkert met disk. 
Bestelnaam: FD-J voor JUNIOR, DQS/MON in 2 ;■; 2732 
FD-K voor KlM-l, DOS/MDN in 2 K 2732 
FD-A voor AIM-65, DOS in 1 % 273S 
De nu geldende aanbieding is fl. 1085, — vGtJTs 

- 1 enkelzijdige 5-1/4" diskdrive <single density) 

- 1 Floppydisk controller FDC-4 

- 1 DOS/Monitor in Eprom 

- 1 Systeem disk met alls bovenqenoemde programma's. 

Verder zijn de volqende kaarten beschikbaar: 

- PROfl-a kaart (in combinatie met FD-;c) fl. 125,- 
8 sockets fiiJ wor Wm, 2714, 2732 en 

2764 (hiervoor moeten wel 28-pens voetjes 
warden gemonteerd). Instelbaar over het gehele 
a#restj«reik. 

-■ DR32 32 Kbyte dynamische RAM-kaarfe fl 

- Keyboard KB-1 fl 



390,— 
185,— 



Deze pri js geldt UITSLUITEND in combinatie met floppydisk 
pakket , 
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Deze scherpe aanbiedinq is met Uw bestuur de volgende 
condities overeengekomen : 

De 6502-clLib draagt zorg voor de modi-f icaties die nodig zijn 
voor de JUNIOR en de KIM-1. 

Bestellingen worden uitsluitend door de 6502-club gedaan vergpzeld 
van de betalingen (bv. met gi robetaal kaarten , eurocheques mogen 
op naam van de af zonderl i jke bestellers). 
De levering geschiedt rechtstreeks aan de bestellers. 

De prijsstelling van deze aanbiedinq is aanmerkelijk lager dan de 
normal e conditie. Wij moeten er dan ook op aandringen dat deze uit- 
sluitend voor gebruik door clubleden wordt aangekocht. 
Met betrekking tot de software vermelden wij (ten overvloede) dat 
het niet is toegestaan deze te copieren. 



GARANTIE: 

Op PROTON producten geldt een garantie van 6 maanden na levering. 
Voor de diskdrive geldt een garantie van 3 maanden na levering. 
Individuele problemen bi j de samenbouw o-f vragen hierover worden 
niet door PROTON behandeld daar voor deze 3 computers alle aan- 
passingen (voor zover nodig) in samenwerking met de 6502-club 
zijn gedaan. 



Dhi"-. F rai'iSBt-M zor9"t voor iriTor— 

iiiAX i 1=' OVt-r Wfc- rk i TiS t-n ototi'iS i Li i — 
"t i 'Ci3 VATi ht-'t •f 1 OPpy—SySt^t'ii'n 
dAX ■te-Vt'TiS biJ I fc-Vt- i" ari"t i t" dOOi' 

Pro'tori wordt b i J ae-s i oueri. 



LfiftTSTE NIEUWS VAN PROTON: 



Uriiverst-ie CoiYiPact Coiiiputer 
PC II 4K RfiM, SK Basi c in 
ROM 7 ext. iiiori i "to r T color — 

V i d&O— i n'tt' r f aiCt- CitiOri i "tor 

of TV) J high speed cassette 
i riterfacei (iTiat r i k— pr i nter — 
PortT ASCII keyboard? voe- 
ding, Fl. l.EEG, 50 

PC II G4K<dyriafrti cJRftM ftCIft 
C RS232 P r i n t e r k on n e k t o r ) , 
Centron i x— \ riterfacei verder 
als PC II 4K Fl. i.393, 25 

ft lie priJsen ziJn ecK i . BTW. 
De aan b i ed i ngeri se I den a I — 
I een voor c I ub I eden> 

Op andere artikeien van de 
firitia PROTON wordt vee I a I 
20% korting verstrekt. In- 
I i cht i ngen u i ts I u i tend v i a 
de sekretaris of via de re- 
dak t i esekretar i s. 



Wat de club kan do»ri : 



Aanpassen van de monitor. 



Frans Smeehu i z»n past aan voor 
de KIM-1. 

Dhr. Franssen past aan voor 
de JUNIOR. 

Ruud Uphoff past aan voor 

de RPPLE II. 

PROTON heeft zei-f reeds aanse- 
past voor de f)IM 65. 

Aandacht voor hard- en softw. 



De B5I92 Kenner Kan hieraan aan- 
dacht besteden door artikeien 
of advertent i es. 
PROTON wordt in de sele^enheid 
sesteid OP c I ubb: JeenkoMsten 
I ez insert te seven over haar di- 
verse produkten. 

VerzaMeien orders. 

Teneinde in aanmerkins te komen 
voor de speciaie prijzen voor 
clubleden. zuiien de orders van 
de Clubleden worden verzameid 
door de sekretaris. 
Vrasen Moeten in eerste instan- 
tie worden sericht aan de sekre 
tar i St niet aan PROTON. 



DE 6502 KENNER 
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